» » »

Определите предикат для вычисления наибольшего общего делителя чисел А и В по алгоритму Евклида

% Bilet17
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
evkl(X,X,X).
evkl(X,Y,Z):-X>Y, R is X-Y, evkl(R,Y,Z).
evkl(X,Y,Z):-X<Y, R is Y-X, evkl(R,X,Z).

jstart:- write(' Vvedite chislo A: '),nl,read(IJAM1),nl,
write(' Vvedite chislo B: '),nl,read(IJAM2),nl,
evkl(IJAM1,IJAM2,Z),
write(Z).

Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.