Question

НАПИШИТЕ ПРОГРАММУ ПЖ дам 15б
В ПАСКАЛЕ

даны два числа а,б. Найти их среднее арифметическое (а+б)/2.

Answer 1

Ответ:

var

a, b: real;

begin

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

readln(a, b); { <-- Вводим два числа и нажимаем Enter }

{ Выводим результат: }

writeln('Среднее арифметическое чисел ', a, ' и ', b,

' равно ', (a + b) / 2);

readln

end.