СРОЧНО!!!! ** паскале надо сделать задачу:даны два ненулевых числа. Найти их среднее...

Question

СРОЧНО!!!!
На паскале надо сделать задачу:даны два ненулевых числа. Найти их среднее арифметическое.
Формат вывода результата «Среднее арифметическое числа ___ и числа ___ равно ___»

Answer 1

Program Ave;

var a,b:real;

begin
  write('Введите первое число '); readln(a);
  writeln('Введите второе число '); readln(b);
  writeln('Среднее арифметическое числа ',a,' и числа ',b,' равно ',(a+b)/2);
end.

Comments

спасибо