Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - количество чисел, кратных 4.

Question

Информатика

Васяка

31 декабря, 07:55

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - количество чисел, кратных 4.

+1

Ответы (1)

Знаете ответ на вопрос?

Каллисфен · Answer 1

Program g; var i, a, b, c:integer; begin b:=0; c:=0; write ('Введите кол-во чисел - ') ; read (a) ; for i:=1 to a do begin read (b) ; if (b mod 4 = 0) then c+=1; end; write ('количество чисел, кратных 4 - ', c) end.