Напишите программу которая в последовательности натуральных чисел определяет ко
Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 4.Программа получает на вход количество чисел в последовательности а затем сами числа.В последовательности всегда имеется число кратное 4.Количество чисел не превышает 1000.Введенные числа не превышают 30000 программа должна вывести одно число количество чисел кратных 4.Решите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость 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. Вместо $ должна быть точка с запятой, но я не нашел ее у себя в телефоне
Не нашли ответ?
Похожие вопросы