Question

Напишите программу. Ввести 8 чисел с клавиатуры и найти количество всех нечетных чисел, кратных 5.​

Answer 1

Так как целевой язык не указан, приведу пример на 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).