Cod sursa(job #131988)
| Utilizator |  Diaconeasa Andrei AndreiD |
Data | 4 februarie 2008 20:46:30 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.2 kb |
var n,c,nr,i,a,x,na:integer;
begin
read(n,c);
nr:=0;
for i:=1 to n do begin
na:=0;
x:=i;
while x<>0 do begin
a:=x mod 10;
if a=c then na:=na+1;
x:=x div 10;
end;
nr:=nr+na;
end;
write(nr);
end.