Найти натуральные числа, меньшие чем MAXINT, такие , что они равны сумме факториалов цифр, из которых состоят - Turbo Pascal

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

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

помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

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

textual
Листинг программы
var
  f: array [0..9] of Longint;
...
  f[0]:=1; for i:=1 to 9 do a[i]:=a[i-1]*i;

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

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