fatorial.pas

来自「本程序实现了mini pascal的一个编译的总过程。」· PAS 代码 · 共 15 行

{ Programa que calcula fatorial }

PROGRAMA fatorial;
VARIAVEIS n, fat,i:INTEIRO;
COMECO
    LEIA(n);
    fat := 1;
    n:=1;
    ENQUANTO(i <= n)
    FACA
    COMECO
        fat:= fat*i;
        i:=i+1;
    FIM;
    ESCREVA("O fatorial de n