Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда имеется число,
кратное 4.
Количество чисел не превышает 1000. Введѐнные числа не превышают
30 000.
Программа должна вывести одно число – количество чисел, кратных 4.
Пример работы программы:
Входные данные Выходные данные
3
16
26
24
2

Answer 1

N = int(input("Сколько чисел в последовательности? "))

k = 0

for i in range(N):

   x = int(input())

   if x % 4 == 0:

       k+=1

print(k)

Answer 2

program count4;

var

 size, amount, counter, i: integer;

begin

 counter := 0;

 amount := 0;

 readln(size);

 while counter < size do

 begin

   readln(i);

   if (i mod 4 = 0) then

     amount := amount + 1;

   counter := counter + 1;

 end;

 write(amount);

end.

Объяснение:

program count4;  // Название программы

var

 size, quantity, counter, i: integer;  // Создание целочисленных переменных

i - вводимые числа с клавиатуры; size - количество чисел в последовательности;quantity - количество чисел, кратных 4;counter - переменная счетчик.

begin  // Начало программы

 counter := 0;  // Переменная счетчик = 0

 quantity:= 0;  // Количество четырехзначных чисел = 0

 readln(size);  // Считываем количество чисел в последовательности с клавиатуры

 while counter < size do  // Пока значение переменной counter < значения переменной size

 begin  // Начало цикла

   readln(i);  // Считываем число с клавиатуры

   if (i mod 4 = 0) then  // Если остаток от деления = 0, тогда

     quantity:= amount + 1;  // Количество + 1

   counter := counter + 1;  // Переменная счетчик + 1

 end;  // Конец цикла

 write(quantity);  // Вывод значения переменной quantity

end. // Конец программы