Даны 3 чимла найти среднее арифметическое из них паскаль

Question

Информатика

Агапий

31 января, 05:55

Даны 3 чимла найти среднее арифметическое из них паскаль

+5

Ответы (1)

Знаете ответ?

Лидуня · Answer 1

Var

a, b, c: integer;

s: real;

begin

writeln ('Введите три числа') ;

readln (a) ;

readln (b) ;

readln (c) ;

s : = (a + b + c) / 3;

writeln ('Среднее арифметическое трех введенных чисел равно ', s) ;

end.