Cod sursa(job #624654)

Utilizator sergiu.marcusMarcus Sergiu sergiu.marcus Data 22 octombrie 2011 16:38:29
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var f,g:text;k,i,n,j:integer;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,n);
repeat
i:=i+1;
if i mod 10=5 then k:=k+1;
if (i mod 10=5)and(i div 10mod 10=2) then k:=k+1;
if i mod 10=0 then begin j:=i;
repeat
k:=k+1;
j:=j div 10;
until j mod 10<>0;end;
until k=n;
write(g,i);
close(F);
close(G);end.