- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
10 INPUT "N = " , %N
20 %FACTORIAL = %N
30 GOSUB 110
40 PRINT %N , "! = " , %FACTORIAL
50 END
100 REM FUNCTION FACTORIAL
110 IF %FACTORIAL <= 1 THEN %FACTORIAL = 1 : RETURN
120 FOR %I = %FACTORIAL - 1 TO 1 STEP -1
130 %FACTORIAL = %FACTORIAL * %I
140 NEXT %I
150 RETURN
160 ENDSUB
666 REM НУЖНО НАПИСАТЬ РЕДАКТОР ДЛЯ ЭТОГО ДЕРЬМА,
999 REM А ТО Я ЗАИПАЛСЯ В РУЧНУЮ НОМЕРА СТРОК ХРЕНАЧИТЬ
20 END