Question

дана последовательность чисел, заканчивающихся нулем. Создайте программу, которая вычисляет сумму чисел без использования цикла. Например, 1 7 9 0 = 17

Answer 1

Pascal:

var a,s:integer;

label enterValue;

begin

   s := 0;

   enterValue:

   write('Введите число: '); readln(a);

   if a <> 0 then begin

       s := s + a;

       goto enterValue;

   end;

   write('Сумма чисел равна: ', s);

end.