Cod sursa(job #387657)

Utilizator SykzGabris Marius Sykz Data 28 ianuarie 2010 09:25:20
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var p,x,n:longint;
    i:byte;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p);
x:=p*5;n:=5;
for i:=1 to 11 do
    begin
    n:=n*5;
    if x>=n then x:=x-5
            else break;
    end;
write(g,x);
close(f);close(g);
end.