Question

Найдите среднее арифметическое трёх чисел, ведённых с клавиатурыв паскаль

Answer 1

Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3 
writeln ('ср. знач.=', rez:0:2 ); 
end.