% Bilet12
% Patched 14.01.13
% To start type: jstart.
razList(S,L):-S<10,L=[S].
razList(S,L):-S>10, X is S mod 10,Y is S //10, razList(Y,L1),L=[X|L1].
rev([H|T],L1,L2):-
rev(T,[H|L1],L2).
rev([],L,L).
reverse(L1,L2):-rev(L1,[],L2).
list(X,L):-razList(X,L1),reverse(L1,L).
perev(X):-list(X,L),reverse(L,L).
jstart:- write(' Vvedite chislo: '),nl,read(JAM1),nl,
perev(JAM1).
Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.