Cod sursa(job #6372)

Utilizator fishbogdan negrila fish Data 19 ianuarie 2007 10:17:27
Problema Patrate2 Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.23 kb
var f,g:text;
    n,nr,p,i,j,k,aux,sf:longint;
    x:array[1..100] of byte;
begin
assign(f,'patrate2.in'); reset(f);
assign(g,'patrate2.out'); rewrite(g);
readln(f,n);
k:=1;
x[k]:=1;
for i:=1 to sqr(n) do begin
         for j:=1 to k-1 do if x[j]*2>9 then begin
                                    aux:=1;
                                    x[j]:=x[j]*2 mod 10+aux;
                                    end
                                    else begin
                                     aux:=0;
                                     x[j]:=x[j]*2;
                                     end;
        if x[k]*2>9 then begin
                      inc(k);
                      x[k-1]:=x[k-1]*2 mod 10+aux;
                      x[k]:=1;
                      end
                     else x[k]:=x[k]*2;
                      end;
aux:=0;
sf:=0;
for j:=1 to k-1 do begin
          aux:=(x[j]*n+sf) div 10;
          x[j]:=(x[j]*n+sf) mod 10;
          sf:=aux;
          end;
if x[k]*n+aux>9 then begin
        inc(k);
        x[k]:=(x[k-1]*n+aux) div 10;
        x[k-1]:=(x[k-1]*n+aux) mod 10;
             end
             else x[k]:=(x[k]*n+aux) mod 10;
for i:=k downto 1 do write(g,x[i]);
close(f); close(g);
end.