Улучшение решения задачи про кубы

[Asya_inter]

Улучшение решения задачи про кубы

Подскажите, почему задача после кё запуска долго не завершается, хотя и ответ вывела? А ещё, как улучшить можно? Нужно узнать, можно ли данное число представить в виде суммы кубов трех натуральных чисел.

program z1;
var m2, i,j,k:integer;
m,m1,s:real;
begin
writeln('VVedite chislo:');
readln(m1);
s:=3;
m:=exp(ln(m1)*s);
m2:=round(m);
for i:=1 to  m2 do 
for j:=1 to  m2 do
for k:=1 to  m2 do
if i*i*i+j*j*j+k*k*k=m1 then begin
writeln( i,' ', j,' ', k);
end;
writeln('nelzia');
end.

 

[Asya_inter]

s:=3;
m:=exp(ln(m1)*s);

Здесь так должно быть:

s := 1/3;
m := exp(ln(m1/3) * s);
m2 := round(m);

 

[Asya_inter]

Вот что получилось, но можно ли лучше?

program z1;{Нужно узнать, можно ли данное число представить в виде суммы кубов трех натуральных чисел.}

var
m2, i, j, k: integer;
m, m1, s: real;
ok: boolean;

begin
writeln('VVedite chislo:');
readln(m1);
ok:=true;
s := 1/3;
m := exp(ln(m1/3) * s);
m2 := round(m);
for i := 1 to m2 do
for j := 1 to m2 do
for k := 1 to m2 do
if i * i * i + j * j * j + k * k * k = m1 then begin
writeln(m1,'=' , i, '^3+', j, '^3+', k,'^3');
ok:=false;
end;
if ok then begin
write('nelzia');
end;
end.

 

[Евгений]

У меня так получилось :

uses crt;
var i,j,t,x,y,z,n,m,p:Longint;
m1:Extended;
begin
ClrScr;
p:=0;
Write('Cislo = '); Readln;
m1:=exp(ln/3);
m:=Trunc(m1);
for i:=1 to m do
begin
x:=i*i*i;
if p<>0
then Break
else
for j:=1 to m do
begin
y:=j*j*j;
if p<>0
then Break
else
for t:=1 to m do
begin
z:=t*t*t;
if (x+y+z)=n then
begin
Writeln(i,' ',j,' ',t);
Inc(p);
Break;
end;
end;
end;
end;
if p=0 then Writeln('Nelzja');
ReadKey;
end.

 

[Asya_inter]

Евгений, спасибо - всё отлично работает!

 

[Vladimir_S]

Вот что получилось, но можно ли лучше?

Уж не знаю, лучше или нет, но мне нравится больше. По крайней мере, удалось обойтись без вещественных форматов.

Var
 M,a,b,c,d:Integer;
 T:boolean;

Begin
 Write('M = ');
 Readln(M);
 a:=0;
 repeat
  Inc(a);
  b:=0;
  repeat
   Inc(b);
   c:=0;
   repeat
    Inc(c);
    d:=M-a*a*a-b*b*b-c*c*c;
    T:=(d=0);
   until T or (d<0);
  until T or (b*b*b+a*a*a>M-1);
 until T or (a*a*a>M-2);
 if T then
  writeln('Yes: ',M,' = ',a,'^3 + ',b,'^3 + ',c,'^3')
 else
  writeln('No');
 Readln
End.

 

[Asya_inter]

Vladimir_S, большое спасибо! Очень даже понятно!