| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Prolog > Найти количество не парных чисел |
| Автор: katerinaа 20.3.2012, 10:02 |
| Задан список из N чисел: а (1), а (2), ..., а (N). Найти количество нечетных чисел (язык Prolog). Листинг программы: Код Prolog1 domains element=integer list=element* predicates p(list,integer) start(list) clauses p([],_). p([H|T],N):- NN=N,p(T,NN), 0=H mod 2, H>N,NNN=N*N,H<NNN start(L):- p(L,1),!. write(“Kolichestvo neparnux chisel=”,H),nl. start(L). |