Запишите на Паскале программу нахождения среднего арифметического двух чисел .
var
a, b: real;
begin
readln(a, b); //Берём 2 числа
a := (a + b) / 2; //находим ответ
writeln(a); //Выводим ответ
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
var
a, b: real;
begin
readln(a, b); //Берём 2 числа
a := (a + b) / 2; //находим ответ
writeln(a); //Выводим ответ
end.