Наименьший общий составной делитель натуральных чисел Turbo Prolog

@aekuznecov · Регистрация: 25.03.2013

Студворк — интернет-сервис помощи студентам

Добрый день. Имеется задача: Составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел N и M.
Код на TurboProlog:

Prolog

predicates
nod(integer,integer,integer).
res(integer,integer,integer).
clauses
nod(M,N,N):-M mod N=0,!.
nod(M,N,R):-Ost=M mod N,nod(N,Ost,R).
res(M,N,O):-nod(M,N,O).

Подскажите, пожалуйста, в чем тут может быть ошибка и как исправить? Спасибо.

@Black Fregat · 22.01.2016, 09:18

А в чем проблема, собственно?

@aekuznecov · 22.01.2016, 12:39 **[ТС]**

Black Fregat, думал что имеется ошибка в программе. бывает, когда тороплюсь. Спасибо)

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	22.01.2016, 09:18	2
	А в чем проблема, собственно? Миниатюры 2

@aekuznecov 33 / 33 / 17 Регистрация: 25.03.2013 Сообщений: 520 Записей в блоге: 5
	22.01.2016, 12:39 [ТС]	3
	Black Fregat, думал что имеется ошибка в программе. бывает, когда тороплюсь. Спасибо) 0

Опции темы