Найти наибольший общий делитель НОД (M, N) - Prolog
Формулировка задачи:
3. Найти наибольший общий делитель НОД (M, N). указания искать нод через вычитание из большего числа меньшее.
Решение задачи: «Найти наибольший общий делитель НОД (M, N)»
textual
Листинг программы
predicates gcd(integer,integer,integer) clauses gcd(N,M,K) :- M>N, gcd(M,N,K),!. gcd(N,M,M) :- (N mod M)=0. gcd(N,M,K) :- P=(N mod M), P<>0, gcd(M,P,K).