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

kisnasty951 kisnasty951    3   23.09.2019 09:20    1

Ответы
nikitaviktorov9 nikitaviktorov9  08.10.2020 12:00
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.Интересное задание, поломал голову немного.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика