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

Answer 2

Хорошо, чтобы вывести все числа от 1 до n в таблице, включая столбцы 1/2n, nn, nnn и nnnn, можно использовать программу на Python. Вот код для этой задачи:

pythonCopy code
def print_table(n):
    print("n\t1/2n\tn*n\tn*n*n\tn*n*n*n")
    for i in range(1, n+1):
        print(f"{i}\t{i/2}\t{i*i}\t{i*i*i}\t{i*i*i*i}")

# Пример вызова функции с n = 5
print_table(5)

Программа выведет таблицу чисел от 1 до 5:

markdownCopy code
n       1/2n    n*n     n*n*n   n*n*n*n
1       0.5     1       1       1
2       1.0     4       8       16
3       1.5     9       27      81
4       2.0     16      64      256
5       2.5     25      125     625

Вы можете изменить значение параметра n, чтобы получить таблицу для других чисел.