Цитата:
Сообщение от Asya_inter
Вот что получилось, но можно ли лучше?
|
Уж не знаю, лучше или нет, но мне нравится больше. По крайней мере, удалось обойтись без вещественных форматов.
Код:
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.