Куб числа

[Nobel]

доброе времены суток. Помогите с задачкой

[Stilet]

Старый баян: :=exp(3*ln(числа));

[Serge_Bliznykov]

Stilet, ну, если бы так всё просто было, тогда достаточно написать N*N*N

думаю, что задача состоит не в том, чтобы вывести куб числа N, а в том, чтобы вывести N нечётных чисел, которые в сумме дают нужное значение, равное кубу числа N...

[arrowsf1]

к примеру 6^3=31+33+35+37+39+41

напишу прогу за 300рублей из-а того, что не до всех дойдёт такой приметивнейший фокус,

пс ералашные и то круче

так как платишь

[TinMan]

Не совсем ясно, что именно требуется.. Что есть "n-ное число"?
Короче, вот код, возводящий в куб по этому принципу. Я сделал рекурсию, поскольку на нее есть явный намек в условии.

function Last(n: integer): integer;
begin
  if n=0 then Last:= -1 else Last:= Last(n-1)+n*2
end;

var
  i,j,n,m: LongInt;

begin
  write('type in a positive integer number: ');
  readln(n);
  m:= 0;
  j:= Last(n-1);
  for i:=1 to n do begin
    j:= j+2;
    m:= m+j
  end;
  writeln(n,'^3 = ',m);
  readln
end.

[Arhangel7]

var
S,A,n,i:integer;
begin
  write('Введите натуральное число -> ');
  readln(n);
  S:=(n)*(n-1) div 2;
  A:=(S-1)*2+1;
  write(n,'^3 =');
  for i:=1 to n do
    begin
      A:=A+2;
      write(' ',A);
    end;
  readln;
end.

или

procedure qwerty;
var
S,A,n,i:integer;
O:string;
begin
  write('Введите натуральное число > 0 -> ');
  readln(n);
  S:=(n)*(n-1) div 2;
  A:=(S-1)*2+1;
  write(n,'^3 =');
  for i:=1 to n do
    begin
      A:=A+2;
      write(' ',A);
    end;
  writeln;
  write('Попробовать еще? Y/N ->');
  readln(O);
if (O[1]='Y') or (O[1]='y') then qwerty;
end;

begin
qwerty;
end.

как - то так )

[Plague]

var n:longint;
begin
  readln(n);
  writeln('n-ое число  = ', n*(n+1)-1);
end.