Задать вопрос Регистрация
Помочь другим

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

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

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years