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.