Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее...

Question

Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое в pascal ABC
Пример:
Введите три целых числа :
5 7 8
5+7+8=20
5*7*8=280
(5+7+8)/3=6,667

Answer 1

РЕшение данной задачи ниже

Comments

program HelloWorld;

var

count, sum, mult, a : integer;
average : real;

begin

count:=3;
sum:=0;
mult:=1;

while count>0 do
begin
readln(a);
count:=count-1;
sum:=sum+a;
mult:=mult*a;
end;

average:=sum/3;

writeln('Сумма - ',sum);
writeln('Произведение - ',mult);
writeln('Среднее арифметическое - ',average);

end.