Правильно ли работает программа? Среднее арифметическое - Free Pascal

Формулировка задачи:

Здравствуйте! Написал программу для определения среднего арифметического. Ниже её код:
program n_34;
uses crt;
var 
a, b, c, otvet: real;
begin
   ClrScr;
   write ('Введите число a: ');
   readln (a);
   write ('Введите число b: ');
   readln (b);
   write ('Введите число c: ');
   readln (c);
   otvet:= a+b+c/3;
   write ('Среднее арифметическое= ',otvet:10:11);
   while not keypressed do;
end.
Ввел три раза число 5, но ответ 11.66666666667. Это правильно или где-то допущена ошибка?

Код к задаче: «Правильно ли работает программа? Среднее арифметическое - Free Pascal»

textual
var a, b, c: Real;
begin
  Read(a,b,c); a:=a*b*c;
  if a<0 then a:=-Exp(Ln(-a)/3) else a:=Exp(Ln(x)/3);
  WriteLn(a);
end.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ