13.08.2015, 15:39
|
#3 (permalink)
|
|
Member
Регистрация: 12.01.2015
Сообщений: 71
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вот что получилось, но можно ли лучше?
Цитата:
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.
|
|
|
|