Найти двузначное число такое, что куб суммы его цифр равен квадрату самого числа - VB
Формулировка задачи:
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
Решение задачи: «Найти двузначное число такое, что куб суммы его цифр равен квадрату самого числа»
textual
Листинг программы
- Function task() As integer
- For i%=1 to 9
- For j%=0 to 9
- if (i%+j%)^3 = (10*i%+j%)^2 then
- task=(10*i%+j%)
- Exit function
- End if
- Next j%
- Next i%
- End Function
- Sub main
- MsgBox Cstr(Task())
- End sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д