ПОЖАЛУЙСТА, ПОМОГИТЕ! Напишите программу, вычисляющую сумму всех введенных чисел.

1

Ответы и объяснения

2013-09-15T12:31:38+04:00
Var
i:string;
s:integer;
begin
while i<>'exit' do begin
writeln('vvedi chislo/dlia vihoda vvedi "exit"');
readln(i);
if i<>'exit' then s:=s+strtoint(i);
end;
writeln('summa:',s);
end.
Говнокод, конечно, но работает)