Вывод на экран простых делителей натурального числа

@Serega163 · Регистрация: 12.05.2015

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

Здравствуйте, помогите пожалуйста с задачей
Составьте программу вывода на экран дисплея простых делителей натурального числа N

@Serega163 · 02.12.2015, 15:21 **[ТС]**

Помогите пожалуйста

@Catstail · 02.12.2015, 17:20

Prolog

domains
int=integer
intl=int*
 
predicates
is_prime(int,int)
print_div(int,int)
task(int)
 
clauses
is_prime(2,_).
is_prime(N,K) :- (N mod K)<>0, K > (N div 2).
is_prime(N,K) :- (N mod K)<>0, K1=K+1, is_prime(N,K1). 
 
print_div(N,K) :- K >(N div 2),!.
print_div(N,K) :- (N mod K)=0, is_prime(K,2), write(K),nl,K1=K+1, print_div(N,K1).
print_div(N,K) :- K1=K+1, print_div(N,K1).
 
task(K) :- print_div(K,2).

@Serega163 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 22
		1
	Вывод на экран простых делителей натурального числа 30.11.2015, 17:56. Показов 1392. Ответов 2 Метки нет (Все метки) Здравствуйте, помогите пожалуйста с задачей Составьте программу вывода на экран дисплея простых делителей натурального числа N 0

@Serega163 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 22
	02.12.2015, 15:21 [ТС]	2
	Помогите пожалуйста 0

	02.12.2015, 17:20