Вычислить сумму 1+2+3... Складывать до тех пор, пока сумма не станет больше 10000. Оператор While

Program z2;
Var s,i:integer;
Begin
s:=0;
i:=;
while s

Question

Program z2; 
Var s,i:integer; 
Begin 
s:=0; 
i:=; 
while s<=10000 do 
begin 
s:=s+i; 
i:=i+1; 
end; 
writeln('Сумма =',s); 
end. 
где здесь ошибка? сумма больше 10000 выходит

О_О засиделась я что-то..

Денис Филатов · Accepted Answer

"пока сумма не станет больше 10000" 
 
твой коммент: 
"сумма больше 10000 выходит" 
 
Разве не правильно? О_о

Анюта Круглова · Answer

круто

Евгения Надеенская · Answer

Храните не только s, но еще и предыдущую s. 
То есть 
old_s := s; 
s := s+i; 
И эту предыдущую с и выводите.