Вывести все числа от 1 до n в таблице: n ; 1/2n ; n*n ; n*n*n ; n*n*n*n

Question

Вывести все числа от 1 до n в таблице:
n ; 1/2n ; n*n ; n*n*n ; n*n*n*n

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
   var n:=ReadInteger('n=');
   var a:=new string[5,n+1];
   a[0,0]:='n'; a[1,0]:='1/2*n'; a[2,0]:='n*n'; a[3,0]:='n*n*n'; a[4,0]:='n*n*n*n';
   for var i:=1 to n do
   begin
     a[0,i]:=IntToStr(i); a[1,i]:=FloatToStr(i*0.5); a[2,i]:=IntToStr(i*i); 
     a[3,i]:=IntToStr(i*i*i); a[4,i]:=IntToStr(i*i*i*i);
   end;
   a.Println(7);
end.

Пример:
n= 3
         n       1       2       3
   1/2*n    0.5       1    1.5
      n*n       1       4       9
   n*n*n       1       8     27
n*n*n*n      1     16    81