Ответы и объяснения

2014-01-27T07:16:55+04:00
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.
2014-01-27T11:16:32+04:00
Program gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.