Cod sursa(job #901859)

Utilizator Bogdy95Bogdan Zsolt Bogdy95 Data 1 martie 2013 12:01:59
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var a:array[1..12] of longint;
        f:text;
        p,i,j,n:longint;

begin
a[1]:=25;
for i:=2 to 12 do
        a[i]:=5*a[i-1];
readln(p);
n:=p*5;
i:=1;
while n>a[i] do
        inc(i);
dec(i);
for j:=1 to i do
        n:=n-5;
writeln(n);
readln;
end.