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

varn,i,s:longint;m:string;beginread(n);for i:=1 to n dobeginstr(i,m);if pos('1',m)0 then s:=s+1;end;write(s);end。