Написать ** Паскале программу. Задано натуральное N. Вычислить сумму ряда: 1^3 + 2^3 +...

Question

Написать на Паскале программу. Задано натуральное N. Вычислить сумму ряда: 1^3 + 2^3 + 3^3 +. . . + N^3 Значение N вводится с клавиатуры.

Answer 1

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n =');
  Writeln('S = ',SeqGen(n,i->Power(i+1,3)).Sum)
end.

Пример
n = 18
S = 29241

Answer 2

Var
   N:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
    S:=S+N*N*N;
WriteLn('S = ',S);
End.

Comments

Спасибо большое)