Cod sursa(job #674927)
| Utilizator |  Cioara Andrei Ioan andreifirst |
Data | 6 februarie 2012 21:35:14 |
|---|---|---|---|
| Problema | Patrate2 | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
var n, i:longint;
p1, p2:int64;
f, g:text;
begin
assign (f, 'patrate.in'); reset (f);
assign (g, 'patrate.out'); rewrite (g);
read (f, n);
p1:=1;
for i := 1 to n do p1 := p1*i;
p2:= 1 shl (n*n);
write (g, p1*p2);
close (f); close (g);
end.