Cod sursa(job #307154)
| Utilizator |  Vlad Costin costyv87 |
Data | 23 aprilie 2009 13:26:04 |
|---|---|---|---|
| Problema | Patrate2 | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.19 kb |
var n,p,i:qword;
f,g:text;
begin
assign(f,'patrate2.in'); reset(f);
assign(g,'patrate2.out'); rewrite(g);
read(f,n);
p:=1 shl sqr(n);
for i:=1 to n do p:=p*i;
write(g,p);
close(g);
end.