Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр - Free Pascal
Формулировка задачи:
4. Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр.
если можно более простым способом.
Решение задачи: «Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр»
textual
Листинг программы
Var i: integer; Function fact(d: byte): longint; Var i: byte; Begin fact:=1; if d<>0 then For i:= 1 to d do fact:=fact*i; End; Begin For i:=100 to 999 do if i = fact(i div 100) + fact ((i div 10) mod 10) + fact (i mod 10) then Writeln(i); Readln; End.
Объяснение кода листинга программы
- Объявлены две переменные:
i
типаinteger
иfact
типаlongint
. - Определена функция
fact
, которая вычисляет факториал числа. Она принимает параметрd
типаbyte
. - В функции
fact
объявлена вспомогательная переменнаяi
типаbyte
. - В функции
fact
выполняется итерация от 1 доd
и производится умножение факториала на текущее значениеi
. - В основной части программы выполняется итерация от 100 до 999.
- Внутри итерации проверяется, равно ли текущее значение
i
сумме факториалов цифр числа, полученных с помощью функцииfact
. - Если условие выполняется, то число выводится на экран.
- В конце программы требуется ввод с клавиатуры, который не используется в данном коде.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д