Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- factorial(0,1).
- factorial(N,Fact):-N>0,N1 is N-1,factorial( N1 ,F1),Fact is (N*F1).
- #main():-
- main:-read(N),factorial(N,X),write('Faktorijel je: '),write(X),nl.
- #pozivamo u plcon sa main.
- #zatim unos sa npr 6.
Add Comment
Please, Sign In to add comment