• Предмет: Информатика
  • Автор: Marinakroxa
  • Вопрос задан 2 года назад

Напишите программу вычисления среднего арифметического двух чисел. (в паскале)
Заранее спасибо) 


Аноним: Var
   A,B:real;
Begin
WriteLn('Введи два числа через пробел.');
ReadLn(A,B);
WriteLn('Их среднее арифметичекое равно: ',(A+B)/2);
ReadLn
End.
Marinakroxa: видимо неверно, там пишется ошибка...
Marinakroxa: ааа, всё, я сообразила! всё верно!!!

Ответы

Ответ дал: archery
24
var x,y:real;
begin
  read(x,y);
  writeln((x+y)/2);
end;
Вас заинтересует