Сумма трех кубов.

[rokss]

Определить, можно ли представить заданное натуральное число, как сумму трех кубов каких-нибудь трех натуральных чисел.


Нужен другой вид программы, которая будет работать быстрее с большими числами.

program z47;

uses crt;
var i,j,l,m:longint;
begin
clrscr;
write('VVedite chislo:');readln(m);
for i:=1 to round(sqrt(m))+1 do
for j:=1 to round(sqrt(m))+1 do
for l:=1 to round(sqrt(m))+1 do
if i*i*i+j*j*j+l*l*l=m then begin
write(Chisla: ',i,' è ',j,' è ',l);
readln;halt;
end;
write('nelzia');
readln;
end.

[evg_m]

1 2 3
2 1 3
2 3 1 это все одни и те же числа
будем искать группу Упорядоченную по возрастанию 1 2 3

for i:=1 to round(sqrt(m))+1 do
for j:=i to round(sqrt(m))+1 do 
for l:=j to round(sqrt(m))+1 do

улучшение второе

mq:=round(sqrt(m)+1; //считаем один раз потом просто используем

for i:=1 to mq do
for j:=i to mq do 
for l:=j to mq do

улучшение третье. только на словах кода писать не буду.
все что можно вычислить вне какого-то цикла должно быть там (вне цикла) и вычислено. и сохранено для последующих действий внутри цикла (-ов).

к этому относится вычисления кубов (произведения) и и даже частичные суммы этих самых кубов.

З.Ы. второе улучшение относится к этому же типу

[s-andriano]

Улучшение N+1-е:
Вместо трех циклов достаточно использовать два - внутри второго проверяется, является ли остаток m-i^3-j^3 кубом целого числа.

Улучшение N+2-е:
Везде вместо sqrt нужно использовать корень кубический.