28 октября, 06:46

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

0
Ответы (1)
  1. 28 октября, 08:19
    0
    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. Интересное задание, поломал голову немного.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дано целое число определить равна ли сумма факториалов цифр данного числа самому числу. паскаль, процедуры. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы