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

Question

Информатика

Симоня

7 сентября, 13:04

Даны 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.