Question

Срочно!!! Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти:
а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while . Дам 15 баллов
​

Answer 1

var a, s,k: integer;

begin

 s := 0;

 k:=0;

 readln (a);

 while a <> 0 do

 begin

   k:=k+1;

   s := s + a;  

   readln(a);

 end;

 writeln('Сумма всех чисел последовательности ', s ,' Количество всей числ последовательности ' ,k);

end.