Cod sursa(job #2370)

Utilizator mist3rfi3ldCondrea Andrei mist3rfi3ld Data 17 decembrie 2006 09:01:04
Problema Cifre Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program cifre1;
var a,b,c,k,i,j,aux,nrpos,nrsol,aux1:longint;
    sol:real;
begin
readln(a,b,c,k);
nrpos:=b-a+1;
for i:=a to b do
begin
aux:=i;
aux1:=0;
while(aux<>0)and(aux1<=k) do
begin
j:=aux mod 10;
if j=c then inc(aux1);
aux:=aux div 10;
end;
if (aux1>=k) then inc(nrsol);
end;
sol:=nrsol/nrpos;
write(sol:10:4);
end.