Nu aveti permisiuni pentru a descarca fisierul grader_test19.in

Cod sursa(job #23312)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 28 februarie 2007 17:04:37
Problema Patrate2 Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var f,g:text;
    q:qword;
    n,i:longint;
begin
 assign(f,'patrate2.in'); reset(f);
 assign(g,'patrate2.out'); rewrite(g);
 read(f,n);
 q:=1;
 for i:=1 to n do
  q:=q*i;
 q:=q*(1 shl (n*n));
 writeln(g,q);
 close(f); close(g);
end.