Question

Решите пожалуйста задание на языке pascal
Вводится натуральное число N меньшее, чем некоторое положительное целое M. Определить, является ли число N разностью двух кубов каких-либо натуральных чисел. Ответ необходимо дать в форме YES | NO.

Answer 1

Program n1;

var n,m,i,j: integer;

f: byte;

begin

readln(n);

readln(m);

f:=0;

for i:=m-1 downto 1 do begin

for j:=i-1 downto 1 do if(i*i*i-j*j*j=n) then begin

write('YES');

f:=1;

break;

end;

if (f=1) then break;  

end;

if (f=0) then write('NO');

end.