Question

Даны два числа a и b.Найти среднее арифметическое:(a+b)/2 !!!!!

Answer 1

Var a,b,z: real;
  begin
  write('Введите два целых числа, разделяя их пробелом: ');
  readln(a,b);
  z:=(a+b)/2;
  writeln('Среднее арифметическое равно ',z);
end.

Answer 2

Var a,b,c:integer;
begin
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.