Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- predicates
- nondeterm a(integer)
- clauses
- a(0):-nl,!.
- a(X):- Q = X mod 10, write(Q),X1=X div 10,a(X1).
- goal
- write("Chislo X?"), readint(X), nl,write("New chislo = "), a(X), nl.
Advertisement
Add Comment
Please, Sign In to add comment
