Определить среднее арифметическое двух чисел, - вопрос №10901725 от 8aA7 15.01.2022 17:01

Question

Информатика: Определить среднее арифметическое двух чисел, если a положительное, в противном случае найти частное этих чисел

8aA7 · Answer

var a,b,c:integer; begin  Writeln( Введите два числа: );  Read(a,b);  if a 0 then    Writeln( Среднее арифметическое: , (a+b)/2)  else Writeln( Частность: , a/b);end....