Question

Решите задачу на Paskale.
Даны два положительных числа. Найти средне арифметическое этих чисел.

Answer 1

program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.