Найти натуральные числа, меньшие чем 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;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д