Question

Дана последовательность целых чисел, оканчивающаяся нулем.
Найти: количество всех чисел последовательности. PASCAL!!!!!!!!!

Answer 1

Программа:

var

 i,s:real;

begin

 i := 1;

 while i <> 0 do begin

   read(i);

   s := s + i;

 end;

 writeln(s);

end.