N为正整数,计算从1到N的所有整数中包含数字1的个数.

N为正整数,计算从1到N的所有整数中包含数字1的个数.

用 Free

问答/225℃/2025-02-27 06:27:09

优质解答：

var

n,i,s:longint;

m:string;

begin

read(n);

for i:=1 to n do

begin

str(i,m);

if pos('1',m)0 then s:=s+1;

end;

write(s);

end.

我来回答

猜你喜欢