| 12345678910111213141516171819 |
- INTEIRO var1
- INTEIRO var2
- ESCREVA "Escreva um numero: "
- LEIA var1
- var2 := 1
- _C0: if 1 > 1 goto _C1
- _L0: if var1 < 1 goto _L1
- T1 := var1 var2 /
- T2 := T1 1 *
- var2 := T2 2 +
- var1 := var1 1 -
- _L1:
- _C1:
- _L51: if 2 < 1 goto _L52
- ESCREVA "a"
- _L52:
- ESCREVA "fatorial de: "
- ESCREVA var1
- ESCREVA "\n"
|