Cod sursa(job #571882)
| Utilizator |  Andreea Ilies InfoLike |
Data | 4 aprilie 2011 20:52:55 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.27 kb |
program infoarena;
var f,g:text;
p,n:longint;
begin
assign (f,'fact.in'); reset (f);
assign (g,'fact.out'); rewrite (g);
read (f,p);
if (p mod 2=0) then n:=5*p;
if (p mod 2=1) then n:=5*p-5;
if (p=0) then n:=1;
writeln (g,n);
close (f);
close (g);
end.