Найти двузначные числа, обладающие тем свойством, что куб суммы его цифр равен квадрату самого числа.
Найти двузначные числа, обладающие тем свойством, что куб суммы его цифр равен квадрату самого числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы