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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
  1. Function task() As integer
  2.   For i%=1 to 9
  3.        For j%=0 to 9
  4.             if (i%+j%)^3 = (10*i%+j%)^2 then
  5.                task=(10*i%+j%)
  6.                Exit function
  7.             End if
  8.        Next j%
  9.     Next i%
  10. End Function
  11.  
  12. Sub main
  13.       MsgBox Cstr(Task())
  14. End sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы