дано целое число найти одинакова ли сумма факториалов цифр данного числа
Дано целое число найти равна ли сумма факториалов цифр данного числа самому числу.паскаль ,процедуры .
Задать свой вопрос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.Занимательное задание, поломал голову немножко.
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.Занимательное задание, поломал голову немножко.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов