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

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

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


textual

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

var
  f: array [0..9] of Longint;
...
  f[0]:=1; for i:=1 to 9 do a[i]:=a[i-1]*i;
Эта работа вам не подошла?

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


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник