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

发布时间：2021-03-10 08:23:38

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

网友回答

varn,i,s:longint;
m:string;
beginread(n);
for i:=1 to n do
beginstr(i,m);
if pos('1',m)0 then s:=s+1;
end;write(s);
end.
以上问题属网友观点，不代表本站立场，仅供参考！