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

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

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

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

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

textual
Листинг программы
Private Sub Command1_Click()
    Dim i&, f&(9)
    f(0) = 1
    For i = 1 To 9
        f(i) = f(i - 1) * i
    Next i
    For i = 100 To 999
       If i = f(i \ 100) + f(i \ 10 Mod 10) + f(i Mod 10) Then Print i
    Next i
End Sub

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

14   голосов , оценка 3.786 из 5
Похожие ответы