ДАЮ 20 БАЛЛОВ Надо составить прогламму, чтобы она складывала все числа, что ты вбиваешь...

Question

ДАЮ 20 БАЛЛОВ Надо составить прогламму, чтобы она складывала все числа, что ты вбиваешь на клавиатуре, кроме 0. Если набьёшь 0 - чтоб она перестала складввать

Answer 1

Только что решал такую задачу:
//Pascal
var a,s:integer;
begin
s:=0;
repeat
  readln(a);
  s:=s+a;
until a=0;
writeln(s);
end.