Question

Составить программу на языке Паскаль для определения среднего арифметического двух чисел a и b, если a положительное и частное (a/b) в противном случае.
ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!!!!

Answer 1

Ответ:

program f;

var a,b,c,d:real;

begin

writeln('Введите два числа');

readln(a,b);

c:=(a+b)/2;

d:=a/b;

if a>0 then writeln(c)

else writeln(d);

end.

Объяснение: