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