Дано натуральное число n Дописать к нему цифру k в конец и в начало

@igor_m · Регистрация: 14.12.2014

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

Дано натуральное число n. Дописать к нему цифру k в конец и в начало. (Visual Prolog)

@Catstail · 28.06.2015, 14:34

Prolog

predicates
f(integer,integer,integer,integer,integer)
task(integer,integer,integer)
 
clauses
f(N,K,P,NN,R) :- N<10, R=NN*10+K+(K*P*10), !.
f(N,K,P,NN,R) :- N1=N/10, P1=P*10, f(N1,K,P1,NN,R).
 
task(N,K,R) :- f(N,K,10,N,R).

@igor_m · 30.06.2015, 00:40 **[ТС]**

это для какой версии Пролога?

@Black Fregat · 30.06.2015, 04:45

Turbo Prolog
Пойдет и для Visual 5

@igor_m 1 / 1 / 0 Регистрация: 14.12.2014 Сообщений: 123
		1
	Дано натуральное число n Дописать к нему цифру k в конец и в начало 28.06.2015, 00:43. Показов 2144. Ответов 3 Метки нет (Все метки) Дано натуральное число n. Дописать к нему цифру k в конец и в начало. (Visual Prolog) 0

@igor_m 1 / 1 / 0 Регистрация: 14.12.2014 Сообщений: 123
	30.06.2015, 00:40 [ТС]	3
	это для какой версии Пролога? 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	30.06.2015, 04:45	4
	Turbo Prolog Пойдет и для Visual 5 0