Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Sum);
end.

Answer 2

Var a,s:integer;
begin
s:=0;
readln(a);
while a<>0 do
 begin
 s:=s+a;
 readln(a);
 end;
writeln('s = ',s);
end.

Пример:
5
8
3
4
6
0
s = 26