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

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

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

Код к задаче: «Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.786 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы