Question

задача на цикл while . Напишите программу, которая считывает со стандартного ввода целые числа, по одному числу в строке, и после первого введенного нуля выводит сумму полученных на вход чисел.

Answer 1

Ответ:

var sum:integer;

begin

 sum:=0;

 while true do

 begin

   var b:= Readinteger;

   if b = 0 then break

   else

   sum:=sum+b;

 end;

 Write('Summa: ', sum);

end.