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

Question

Информатика

Самбила

23 июля, 12:22

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

+4

Ответы (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.