Cod sursa(job #508169)

Utilizator alin1303Bulai Alin alin1303 Data 7 decembrie 2010 18:03:22
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
var f:text;
i,nr,p,n:longint;
x:real;begin
assign(f,'fact.in'); reset(f);
read(f,p);
close(f);
if p=0 then
n:=1
else
if p mod 2=0 then
n:=p div 2*10
else
n:=p div 2 * 10 + 5;
for i:= 1 to n do
begin
x:=i;
nr:=0;
repeat
x:=x/5;
nr:=nr+1;
until x<10;
if x=5 then
n:=n-nr*5;
end;
assign(f,'fact.out'); rewrite(f);
write(f,n);
close(f);
end.