Question

Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 4.программа получает на вход количество чисел в последовательности а затем сами числа.в последовательности всегда имеется число кратное 4.количество чисел не превышает 1000.введенные числа не превышают 30000 программа должна вывести одно число количество чисел кратных 4.решите

Answer 1

Var A, k, b,i:integer$ Begin Readln (b)$ K:=0$ For i:=1 to b do Begin Readln(a)$ If a mod 4=0 then k:=k+1$ End$ Writeln(k)$ End. P. S. Вместо $ должна быть точка с запятой, но я не нашел ее у себя в телефоне