Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое — Паскаль(Pascal) -CF

var a,b,c,s,p:integer;
    sr:real;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
s:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
write('Сумма=',s,' произведение=',p,' среднее арифметическое=',sr:0:3);
readln
end.

Программа на onlinegdb

Leave a Comment

74 − = 65