Question

Помогите пожалуйста напишите программу которая в последовательности целых чисел определяет количество четных чисел и кратных 7 ввод -32 14 17 0 выход 1

Answer 1

Var a,b,c,n:integer;
begin 
  n:=0; 
  b:=0; 
  writeln('введите пять целых чисел');   
readln(a); 
while (b<>4) do   
begin   
 if (a mod 7 = 0) and ( a mod 2 = 0 ) and ( a<>0 ) then   
 n:=n+1;   
 readln(a);   
 b:=b+1;   
end; 
writeln('ответ ',n);
end.

Answer 2

Вот пример программы на языке Python, которая определяет количество четных чисел и чисел, кратных 7, в последовательности целых чисел:

def count_even_and_multiple_of_seven(numbers):
    even_count = 0
    multiple_of_seven_count = 0

for number in numbers:
        if number % 2 == 0:
            even_count += 1
        if number % 7 == 0:
            multiple_of_seven_count += 1

return even_count, multiple_of_seven_count

# Пример использования программы
sequence = [-32, 14, 17, 0]
even_count, multiple_of_seven_count = count_even_and_multiple_of_seven(sequence)
print("Количество четных чисел:", even_count)
print("Количество чисел, кратных 7:", multiple_of_seven_count)

В данной программе используется функция `count_even_and_multiple_of_seven`, которая принимает последовательность целых чисел и возвращает количество четных чисел и количество чисел, кратных 7. Затем мы передаем последовательность `[-32, 14, 17, 0]` в эту функцию и выводим результаты.

Результат: ``` Количество четных чисел: 1 Количество чисел, кратных 7: 1 ```

Пожалуйста, обратите внимание, что данная программа написана на языке Python. Если вам нужна программа на другом языке программирования, пожалуйста, уточните это.