Cod sursa(job #2380)
Utilizator | Condrea Andrei mist3rfi3ld | Data | 17 decembrie 2006 09:05:30 |
---|---|---|---|
Problema | Cifre | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
program cifre1;
var a,b,c,k,i,j,aux,nrpos,nrsol,aux1:longint;
sol:real;
begin
assign(input,'cifre.in');
reset(input);
readln(input,a,b,c,k);
close(input);
nrpos:=b-a+1; nrsol:=0;
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;
assign(output,'cifre.out');
rewrite(output);
write(output,sol:5:4);
close(output);
end.