Question

Найдите сумму кубов всех натуральных чисел от 1 до x вывестисами числа их кубы и конечный результат

Answer 1

//Pascal
var
  sum: longint;
  x: integer;
  i: byte;
begin
  write('Введите число X: ');
  readln(X);
  for i := 1 to X do
  begin
    sum := sum + i*i*i;
    writeln(i, ' в кубе = ', i*i*i);
  end;
  writeln('Сумма кубов от 1', ' до ', X, ' = ', sum);
  readln;
end.

Answer 2

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

begin
  var x:=ReadInteger('x=');
  var s:=0;
  var x3:integer;
  Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end);
  Writeln('ИТОГО:',s:9)
end.

Пример
x= 10
  1^3         1
  2^3         8
  3^3        27
  4^3        64
  5^3       125
  6^3       216
  7^3       343
  8^3       512
  9^3       729
 10^3      1000
ИТОГО:     3025