Задача 4 Урок 21
Primary tabs
Дано целое положительное число N, вычислите N! (эн факториал).
var n: integer; function path(n: integer): integer; begin if n > 1 then begin n := n*path(n - 1); end; path := n; end; begin n := 6; WriteLn(path(n)); readln(); end.
КОНСОЛЬ
720
- Log in to post comments
- 578 reads