Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- silnia(X,Wynik) :-
- X > 0 ->
- X1 is X-1,
- silnia(X1,NowyWynik),
- Wynik is NowyWynik*X;
- Wynik is 1.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement