Cod sursa(job #688852)
| Utilizator |  Cioara Andrei Ioan andreifirst |
Data | 23 februarie 2012 21:52:28 |
|---|---|---|---|
| Problema | Patrate2 | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var n, i:longint;
p1, p2:int64;
f, g:text;
// operatii pe numere mari
begin
assign (f, 'patrate2.in'); reset (f);
assign (g, 'patrate2.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.
