PASCAL数的统计描述 一个数“含有0”是指这个数至少某一位数字为0.小明对那些“含有0”的自然数很感兴趣,想跳出来进

var:a,b,c:longint;
s:string;
begin
readln(a);
c:=0;
for b:=9 to a do begin
str(b,s);
if pos('0',s)0 then c:=c+1;
end;
writeln(c);
end.
//空行为读写文件留