Cod sursa(job #525605)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 25 ianuarie 2011 16:39:55
Problema Factorial Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var     p,n:int64;
        i,j:int64;
        f:text;
begin
assign(f,'fact.in');
reset(f);
read(f,p);
close(f);
if ((p mod 6<>5) and (p mod 30<>0)) then
n:=p*5-(p div 6)*5 -(p div 30)*5;

assign(f,'fact.out');
rewrite(f);
if p=0 then write(f,1) else
if ((p mod 6 =5) or (p mod 30=0)) then write(f,-1) else
write(f,n);
close(f);
end.