StartprogrammingusingObjectPascal:FactorialProgram

From 흡혈양파의 번역工房
Jump to: navigation, search

팩토리얼 프로그램

수학에서 팩토리얼은 숫자를 1 감소시키면서 각각의 이전의 수를 곱한 것입니다. 예를 들어 3! = 3 * 2 * 1 = 6 입니다.

var
    Fac, Num, i: Integer;
begin
    Write('Please input any number: ');
    Readln(Num);
    Fac:= 1;

    for i:= Num downto 1 do
        Fac:= Fac * i;

    Writeln('Factorial of ', Num ,' is ', Fac);
    Writeln('Press enter key to close');
    Readln;
end.