Задача 3 Урок 20
Primary tabs
Дано целое положительное число N, вычислите N! (эн факториал).
var N,res : integer; function Num(N : integer) : integer; begin if (N = 0) or (N = 1) then result := 1 else result := Num(N - 1) * N; end; begin readln(N); res := Num(N); writeln(res); readln; end.
- Log in to post comments
- 810 reads
vedro-compota
Sun, 10/03/2021 - 12:55
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)