Добрые люди, , , сделать по информатике. 1. напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество всех чётных чисел, кратных 3. 2. напишите программу, которая в последовательности натуральных чисел определяет количество всех нечётных чисел, кратных 7. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество всех чётных чисел, кратных 7.

Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
    i, n : integer;
begin
    i := 0;
    repeat
        write('Введите число > ');
        readln(n);
        if (n > 0) then
            if (n mod 2 = 0) then
                if (n mod 3 = 0) then i := i + 1;
    until (n = 0);
    writeln('Количество чётных чисел, кратных 3: ', i)
end.

Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).

Для разделения целой и дробной частей десятичной дроби использовать запятую.

Вводить отрицательные числа со знаком минус или взять число в скобки.

Для обозначения процентов после числа вводить символ "%".

Обычную дробь нужно вводить, указывая и отделяя её от дробной пробелом.

Обозначение единиц измерения после чисел не вводится, только если это не денежные единицы.

перевод:

Для поділу цілої та дробової частин десяткового дробу використовувати кому.

Вводити негативні числа зі знаком мінус або взяти число в дужки.

Для позначення відсотків після числа вводити символ "%".

Звичайну дріб потрібно вводити, вказуючи і відокремлюючи її від дробу прогалиною.

Позначення одиниць виміру після чисел не вводиться, тільки якщо це не грошові одиниці.

def process(array):

result = []

for item in array:

 if item % 2 == 0:

  result.append(item)

return result

def main():

N = int(input())

assert N>=1 and N<= 100

input_array = [int(i) for i in input().split()]

assert len(input_array) == N  

print(' '.join(str(i) for i in process(input_array)))

if __name__ == '__main__':

main()

Объяснение:

Протестировано на предложенном стандартном вводе/выводе + 2 доп. теста:

#1:

Ввод:

3

3 3 4

Вывод:

4

#2

Ввод:

6

3 3 3 4 6 8

Вывод:

4 6 8

P.S - Так как сайт ломает Python-код, ниже приложен скриншот исходного кода программы