Cod sursa(job #299545)

Utilizator hominiduBirsan Dragos hominidu Data 6 aprilie 2009 20:52:55
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var f,g:text;
    ct,i,p,a:int64;

BEGIN
assign(f,'fact.in');
reset(f);
read(f,a);
close(f);

ct:=0;
p:=1;
i:=0;

repeat
i:=i+5;
p:=((p mod 10)* i mod 10) mod 10;
if p mod 5 = 0 then

 begin
 ct:=ct+1;
 p:=1 mod 10;
 end;

until ct = a;
assign(g,'fact.out');
rewrite(g);
writeln(g,i);
close(g);
END.