13 lines
284 B
Text
13 lines
284 B
Text
Фун Факт(n)
|
|
Если n = 1
|
|
Возврат 1
|
|
Иначе
|
|
Возврат n * Факт(n - 1)
|
|
Всё
|
|
Кон Фун
|
|
|
|
Проц Старт()
|
|
n := ВводЦел('Введите число (n <= 12) :')
|
|
печать 'n! = '
|
|
печать Факт(n)
|
|
Кон проц
|