Question

Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр

Не используя функций, только цикл for.
Pascal.

Answer 1

Код программы;

var i, sum, fact, n, t:integer;

begin

 sum := 0;

 fact := 1;

 writeln('Числа:');

 for i:=100 to 999 do begin

   n := i;

   while n <> 0 do begin

     t := n mod 10;

     while  t <> 0 do begin

       fact:= fact * t;

       t := t - 1;

     end;

     sum := sum + fact;

     fact:= 1;

     n := n div 10;

   end;  

   if i=sum then

   write(i, ' ');

 sum := 0;

 end;

end.

P.S. Из трехзначных чисел под условие подходит только число 145