Привет !
Помогите мне пожалуйста. искал по поиску не нашел.
Если Вас не затруднит, найдите значения для уравнения
27*x+y*y*y+z*z*z*z*z*z=w*w*w*w*w*w*w
Заранее спасибо.
function power(X, p: integer): longint;
var _result: longint;
begin
_result := 1;
while p > 0 do begin
_result := _result * X;
dec(p);
end;
power := _result;
end;
var
x, y, z, w: longint;
begin
for x := -20 to 20 do
for y := -20 to 20 do
for z := -20 to 20 do
for w := -20 to 20 do begin
if 27*x + power(y, 3) + power(z, 5) = power(w, 7) then
writeln('27*', x:5, '+', y:5, '^3+', z:5, '^5=', w:5, '^7');
end;
end.