找出1－N中能被5整除且至少有一位数字是5的所有整数的个数.N

var i,j,s:integer;
begin
i:=5; s:=0;
while i0)do
j:=j div 10;
if (j mod 5=0)and(j>0) then s:=s+1;
i:=i+5;
end;
writeln(s:10);
end.