Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program HelloWorld;
var
  a    : array[1..4000] of shortint;
  n,j,i    : integer;
begin
 readln(n);
 for i:=1 to 4000 do
   a[i]:=0;
a[4000]:=2;
 for i:=1 to n do
   begin
     for j:=3999 downto 1 do
     begin
       a[j]:=a[j]*2;
       if a[j]>9 then
          a[j-1]:=a[j] div 10;
     end;
   end;
end.          
          
          
          
          
          
Comments: