ПаскальНайти все натуральные решения уравнения:x^3+y^3=M . Где М>0 задает пользователь....

Question

Паскаль
Найти все натуральные
решения уравнения:x^3+y^3=M . Где М>0 задает
пользователь. Использовать вложенные циклы.

Answer 1

var
  M, y, x, i, j: integer;

begin
  readln(m);
  writeln('X':5, 'Y':5);
  for i := 0 to M do
    for j := 0 to M do
      if (power(i, 3) + power(j, 3) = M) then
        writeln(i:5, j:5);
end.