Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа(TURBO PASCAL)(ЧЕРЕЗ ВЛОЖЕННЫЕ ЦИКЛЫ)
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад