Programiranje 01/10/2016

/* Za broj N odrediti broj cifara u tom broju
 */
zad(0, 0).
zad(N, R):- N>0, N1 is N div 10, zad(N1, R1), R is R1 + 1.

/* Odrediti K cifru broja N gledajuci s desna na levo
 */
zad1(N, 1, R):- R is N mod 10.
zad1(N, K, R):- K>0, N1 is N div 10, K1 is K - 1, zad1(N1, K1, R).