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

Question

Информатика

Симоня

6 августа, 21:33

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

+2

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