Question

free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页

Answer 1

var

i,j:longint;

begin

i:=0;

j:=0;

while j<202 do

begin

inc(i);

if i mod 100=1 then inc(j);

if i div 10 mod 10=1 then inc(j);

if i div 100=1 then inc(j);

end;

writeln(i);

end.

现码的你看看对不对~满意望采纳谢谢!