Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Lab3Factorial
program Lab3; Function factorial(counter: integer) : Integer; begin if counter > 0 then begin factorial := counter * factorial(counter - 1); counter := counter - 1; end else factorial := 1; end; var n : integer; begin readln(n); writeln(factorial(n)); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
nomer3
practica 3 ejercicio 7
la moyenne de théo
real vs integer
practica 5 ejercicio 3
Naloga 12: 3.9.2003
Tugas
test22
practica 7 ejercicio 5
Луноход-3
Please log in to post a comment.