Question

дано целое число определить равна ли сумма факториалов цифр данного числа самому числу.паскаль ,процедуры .

Answer 1

program DigFact;
var x: Integer;
function factorial(x: integer): integer;var i: integer; y: integer;begin y:=x; for i:=1 to x-1 do begin dec(y); x:=x*y; end; factorial:=x;end;
function factorialSum(x: integer): integer;var y: integer;begin factorialSum:=0; repeat y:=x mod 10; x:=x div 10; factorialSum:=factorialSum+factorial(y); until x = 0;end;
begin write('x = '); readln(x); if factorialSum(x) = x then writeln('True') else writeln('False'); readln();end.Интересное задание, поломал голову немного.