Cod sursa(job #112218)
Utilizator | Vlad Veigang vrvp | Data | 3 decembrie 2007 20:50:35 |
---|---|---|---|
Problema | Cifre | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
var a,b,t,i,nr2,nr,q:longint;
f,g:text;
k,c:0..9;
begin
assign(f,'cifre.in');reset(f);
assign(g,'cifre.out');reset(g);
read(f,a,b,c,k);
t:=a-b+1;
for i:=a to b do begin
nr:=0;
q:=i;
while q<>0 do begin
if q mod 10=c then begin
inc(nr);
q:=q div 10;
end
else
q:=q div 10;
end;
if nr>=k then
inc(nr2);
end;
writeln(g,nr2/t:0:4);
close(f);
close(g);
end.