Имеется массив из 8 строк и столбцов, определить сумму - id32612234 от bistreeee 21.06.2020 05:37

Question

Информатика: Имеется массив из 8 строк и столбцов, определить сумму элементов каждой строки массива и результат вывести на экран (нужно решить в basik)

bistreeee · Accepted Answer

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

Имеется массив из 8 строк и столбцов, определить сумму элементов каждой строки массива и результат вывести на экран (нужно решить в basik)

Ответы на вопрос:

Популярно: Информатика