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

Xilolahonabdullaeva Xilolahonabdullaeva    1   23.09.2020 03:57    1

Ответы
Черный2815 Черный2815  23.10.2020 03:59

Так как целевой язык не указан, приведу пример на 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).
Напишите программу. Ввести 8 чисел с клавиатуры и найти количество всех нечетных чисел, кратных 5.​
Напишите программу. Ввести 8 чисел с клавиатуры и найти количество всех нечетных чисел, кратных 5.​
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика