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

annaobryv861 annaobryv861    2   21.05.2019 22:00    0

Ответы
Alisialove Alisialove  16.06.2020 21:18

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика