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

Question

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

Answer 1

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

Comments

Спасибо

---

Пожалуйста.

Answer 2

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