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

Question

Информатика

Ема

25 октября, 18:45

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

+1

Ответы (1)

Знаете ответ на вопрос?

Луня · Answer 1

var i: integer;

n1, n2: integer;

begin

for i : = 10 to 99 do

begin

n1 : = i div 10;

n2 : = i mod 10;

if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then

begin

writeln (i) ;

end

end;

end.