Программа подсчета делителей натурального числа

@Анисина Дарья · Регистрация: 01.05.2016

Добрый вечер!
Помогите пожалуйста дополнить программу, чтобы при введении числа 0 или отрицательных чисел, программа выдавала сообщение о том, что эти числа недопустимы.

Prolog

predicates 
kol(integer,integer) 
koldel(integer,integer,integer) 
clauses 
koldel(_,0,0): -!. 
koldel(X,L,K):-X mod L=0,L1=L-1, koldel(X,L1,K1), K=K1+1; 
X mod L<>0, L1=L-1, koldel(X,L1,K1), K=K1. 
kol(X,Y):-koldel(X,X,Y).

@Catstail · 29.10.2018, 20:04

Prolog

predicates 
kol(integer,integer) 
koldel(integer,integer,integer) 
clauses 
koldel(N,_,_) :- N<=0, write("Bad number!"), nl, fail.
koldel(_,0,0): -!. 
koldel(X,L,K):-X mod L=0,L1=L-1, koldel(X,L1,K1), K=K1+1; 
X mod L<>0, L1=L-1, koldel(X,L1,K1), K=K1. 
kol(X,Y):-koldel(X,X,Y).

Опции темы

Программа подсчета делителей натурального числа

Решение