Найдите двузначное число,...

pEtRu4o · 6 мар 2010

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

ikolai · 6 мар 2010

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.