Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда имеется число,
кратное 4.
Количество чисел не превышает 1000. Введѐнные числа не превышают
30 000.
Программа должна вывести одно число – количество чисел, кратных 4.
Пример работы программы:
Входные данные Выходные данные
3
16
26
24
2
Ответы
N = int(input("Сколько чисел в последовательности? "))
k = 0
for i in range(N):
x = int(input())
if x % 4 == 0:
k+=1
print(k)
Ответ:
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. // Конец программы