Напишите программу. Ввести 8 чисел с клавиатуры и найти количество всех нечетных чисел, кратных 5.
116
379
Ответы на вопрос:
Так как целевой язык не указан, приведу пример на SWI-Prolog.
Код
count_if_condition([], 0).count_if_condition([H|T], NC) :- cond(H), count_if_condition(T, N), succ(N, NC).count_if_condition([_|T], N) :- count_if_condition(T, N).cond(H) :- mod(H, 5) =:= 0.read_ints(0, []).read_ints(N, [X|Ints]) :- read(X), integer(X), succ(NN, N), read_ints(NN, Ints).?- read_ints(8, Ints), count_if_condition(Ints, N), nl, write("Count is "), writeln(N).Популярно: Информатика
-
TupouChuBaK06.11.2021 12:36
-
hazret06.01.2021 01:41
-
plore04.08.2021 08:41
-
bozenka2004200408.01.2021 22:12
-
PatrickKKK28.05.2022 21:33
-
lluciferr0128.04.2021 06:30
-
deonisius0318.11.2021 23:29
-
ayaplay45789019.06.2022 05:04
-
AliceMysova21.04.2021 05:32
-
zhezhuzina200621.01.2022 04:42