Question

Определите сумму всех элементов последовательности, завершающейся числом 0.

Числа, следующие за нулем, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
1
7
9
0
выходные данные
17

Answer 1

pascal
 
var
    a,s : integer;
 begin
   s := 0;
   readln (a);
  While a <> 0 do
    begin
     s := s +a;
     readln (a);
    end;
 
  writeln (s);
 end.