Даны числа А, В, С. Найти среднее значение заданных чисел М.

Question

Даны числа А, В, С. Найти среднее значение заданных чисел М.

Answer 1

Program test;
var a,b,c,m:real;
begin
write('Введите А: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
m:=(a+b+c)/3;
writeln('Среднее значение чилел (',a,', ',b,', ',c,'): ',m:2:2);
end.

Answer 2

Program gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.