Напишите на Паскале

[XaHTeP]

Факторион - такое натуральное число, которое равно сумме факториалов своих цифр. Например 145=1!+4!+5!=1+24+120. Определить является ли введенное трехзначное число факторионом.

[Vanta11a]

50 рублей. Аська в профиле.

[XaHTeP]

А можешь уж плиз так написать)

[Hacker19_90]

function Fact (const n: LongInt): LongInt;
var
     i: integer;
     Rez: LongInt;
begin
     Rez := 1;
     if n = 0 then Fact := 1
     else
          if n > 0 then
          for i := 1 to n do
              Rez := Rez * i;
     Fact := Rez;
end;



begin
    Writeln ('Enter number:');
    Readln (num);
    if (num >= 100) and (num < 1000) then
        if num = (Fact(num mod 10) + Fact((num div 10) mod 10) + Fact(num div 100)) then
            Writeln (num', ' factorion');
end;

[XaHTeP]

Спасибо. А как это записать без function? )

[XaHTeP]

а то function не проходил