数字查找 - pascal吧

数字查找

level 5

璐村惂鐢ㄦ埛_0tQ74Xa馃惥楼主

求大神数字查找怎么做啊？假如输入11 1就从1到11找有1的数字输出是4

2016年11月08日 12点11分 1

level 5

Hishio💕

var
l,r,n,i,k:longint;
begin
n:=0;
readln(r,l);
for i:=l to r do
begin
k:=i;
while k<>0 do
begin
m:=k mod 10;
if m=1 then inc(n);
k:=k div 10;
end;
end;
writeln(n);
end.

2016年11月15日 12点11分 2