Решение на задача 4
summadigits(A,B,C1,D,C,Dig,RestDig):-
del(A,Dig,Digits2),
del(B,Digits2,Digits3),
del(D,Digits3,RestDig),
S is A+B+C1,
D is S mod 10 ,
C is S // 10.
del(X,L,L):-nonvar(X),!.
del(X,[X|L],L).
del(X,[Y|L],[Y|L1]):-del(X,L,L1).
Previous slide
Next slide
Back to first slide
View graphic version