Напишите программу, которая в последовательности целых чисел определяет количество четных чисел кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел кратных 7
котеенок1233
1
19.05.2020 17:56
22
Другие вопросы по теме Информатика
Hehehe225
03.12.2020 15:18
Reshauvce
03.12.2020 15:17
iiiiivvvv
25.12.2020 11:14
IHannahI
25.12.2020 11:14
89269705621
25.12.2020 11:14
Мастер008
25.12.2020 11:16
Снежана1995
25.12.2020 11:17
nina19862
25.12.2020 11:18
Популярные вопросы
- 7. Қабырғалары 6 см және 8 см болатын тіктөртбұрышқа сырттай...
2 - Вершини трикутника АВС мають координати А(-3;-3),В(-2;-1), С(0;-2)....
2 - Установите,как изменяются показатели естественной убыли в европейской...
3 - 1.4. Какой результат вернет функция pos(s1,s)? а) s:= ‘monitor’;...
1 - . над каждым словом части речи. Помагите...
2 - Дано тр.KAC KN-ВЫСОТА AM-БИССЕКТРИСА OF=1,45см Найти ON-? чуть...
1 - Описываем Восточно – Европейскую равнину по карте..(Физическая...
1 - Запишите уравнение реакций, с которых можно осуществить следующие...
1 - Поперечное сечение колодца представляет собой круг диа-метром...
2 - запишите эти предложения в...
1
var
n, k, i, a: Integer;
begin
readln(n);
if n > 1000 then begin
writeln('False');
exit;
end;
k:=0;
for i := 1 to n do
begin
readln(a);
if (a <= 30000) and (a>=-30000) and (a mod 7 = 0) and (a mod 2 = 0)
then begin
k:=k+1;
end;
end;
writeln(k);
end.