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

0 голосов
182 просмотров

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

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

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

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

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


Информатика (12 баллов) | 182 просмотров
Дан 1 ответ
0 голосов

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




(2.6k баллов)