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

2014-02-10T13:06:47+04:00
Program p;
var b,c:integer;
begin
b:=10000;
c:=0;
while b<100000 do
begin
b:=10000+(b+115);
c:=c+1; end;
writeln(c); end.