Даны числа А, В, С. Найти среднее значение заданных чисел М.
Даны числа А, В, С. Найти среднее значение заданных чисел М.
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьprogram gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.
Не нашли ответ?
Похожие вопросы