Cod sursa(job #542539)
Utilizator | Data | 26 februarie 2011 14:38:51 | |
---|---|---|---|
Problema | Factorial | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.25 kb |
program Fact;
var n,s :longint;
var f,ff :text;
begin
assign(f,'fact.in');
reset(f);
readln(f,n);
close(f);
s:=-1;
if n=0 then
s:=1;
if(n>0) and((n mod 2)=0) then
s:=n*5;
assign(ff,'fact.out');
rewrite(ff);
write(ff,s);
close(ff)
end.