Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату...

Question

Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа(TURBO PASCAL)(ЧЕРЕЗ ВЛОЖЕННЫЕ ЦИКЛЫ)

Answer 1

var
a, b:integer;
begin
for a:=1 to 9 do
for b:=1 to 0 do
if (a+b)*(a+b)*(a+b)=(a*10+b)*(a*10+b) then writeln(a,b);
end.