ИНФОРМАТИКА/ 30 БАЛЛОВС клавиатуры вводятся целые числа a, 0. Количество чисел не...

Question

ИНФОРМАТИКА/ 30 БАЛЛОВС клавиатуры вводятся целые числа a, <>0. Количество чисел не известно, признак окончания ввода - ноль. Требуется найти в вывести на экран:1) Сумму всех введённых чисел2) Сумму чисел, меньших 33) Количество чисел, меньших 34) Среднее арифметическое чисел, меньших 35) Произведение всех введённых чисел6) Произведение чисел, меньших 3

Answer 1

Var a,s,s1,k1,pro,pro1:integer;

Begin

 pro:=1;

 pro1:=1;

 readln(a);

 while a<>0 do

 begin

   s:=s+a;

   pro:=pro*a;

   if a

   readln(a);

 end;

 writeln('1) - ',s,'; 2) - ',s1,'; 3) - ',k1,'; 4) - ',s1/k1,'; 5) - ',pro,'; 6) - ',pro1);

End.

Программа была проверена в среде PascalABC.NET, полностью рабочая.