Cod sursa(job #6355)
Utilizator | Andrei Purice Protoman | Data | 18 ianuarie 2007 23:25:09 |
---|---|---|---|
Problema | Patrate2 | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
type vector=array[0..5000] of longint;
var f1,f2:text; i,j,n,b,x,c,m,nr:longint; v:vector;
begin
assign(f1,'patrate2.in');
reset(f1);
assign(f2,'patrate2.out');
rewrite(f2);
read(f1,n);
v[0]:=1;
v[v[0]]:=1;
for j:=1 to n*n do
begin
m:=0;
for i:=1 to v[0] do begin
v[i]:=v[i]*2;
v[i]:=v[i]+m;
m:=v[i] div 10;
v[i]:=v[i] mod 10;
end;
while m>0 do begin
inc(v[0]);
v[v[0]]:=m mod 10;
m:=m div 10;
end;
end;
close(f1);
close(f2);
end.