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