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

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

Составить программу, находящую все трехзначные числа abc такие, что abc= a! + b! + c! Заранее спасибо!

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

Листинг программы

var
  f: array [0..6] of Integer;
  a, b, c: Integer;
begin
  f[0]:=1; for a:=1 to 6 do f[a]:=a*f[a-1];
  for a:=1 to 6 do for b:=0 to 6 do for c:=0 to 6 do
    if f[a]+f[b]+f[c]=100*a+10*b+c then WriteLn(a,b,c);
end.

Объяснение кода листинга программы

Этот код на Turbo Pascal предназначен для поиска трехзначных чисел, сумма факториалов цифр которых равна 100a+10b+c, где a, b и c - это цифры числа. В начале кода объявляются три переменные f, a, b и c, которые будут использоваться для хранения факториалов цифр. Затем следует цикл, который вычисляет факториалы цифр от 0 до 6 и сохраняет их в массиве f. Далее идет вложенный цикл, который проверяет все возможные комбинации цифр a, b и c на предмет того, что их сумма равна 100a+10b+c. Если это условие выполняется, то число записывается в выходной поток. Таким образом, этот код будет выводить все трехзначные числа, удовлетворяющие условию.