Question

50 баллов
написать программу, которая будет считать сумму введенных с клавиатуры чисел до тех пор, пока не будет введен ноль​

Answer 1

Ответ:

var s,k:integer;

begin

s:=0;

repeat

readln(k)

s:=s+k;

until k=0;

write (s);

end.

Объяснение:

используем цикл с постусловием