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

Question

Информатика

Адамыч

16 марта, 16:20

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

+4

Ответы (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.