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

Question

Информатика

Марея

9 января, 18:29

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

+1

Ответы (2)

Знаете ответ на вопрос?

Вела · 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.