Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. программа получает на вход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. программа должна вывести одно число: количество четных чисел, кратных 3.
NOznaniaNO
3
01.09.2019 07:10
4
Другие вопросы по теме Информатика
Lilit66696
16.02.2021 12:09
Madgik2000
16.02.2021 12:09
Habibullinaasa
16.02.2021 12:09
zahcar629
16.02.2021 12:11
Denchik111111111111
07.09.2019 23:40
dvoeshnik101
05.03.2021 09:39
NikoYuqa1
05.03.2021 09:40
matveibr
05.03.2021 09:40
Популярные вопросы
- сделайте таблицу по землетрясениям в мире за последние 10 лет: 1 колонка-год;...
2 - Какой из факторов оказывает самое большое влияние на направление течений?...
2 - На малюнку зображено півколо з центром в точці O, а також градусів...
3 - воркбук 6 клас фото в приклеплённом файле Find and write down 21 words...
2 - Решить задачи по чертежам ,, Все есть на фото Очень нужно!...
1 - Чи справдi э рiзниця мiж тим ,що кажеш,щодумаеш ,до кажеш?...
2 - 5. Подпишите на карте города Индии, входящие в „коридоры рос- та“....
2 - Соотнести картинки к государствам )...
3 - Создать презентацию средствами редактора презентаций на тему Диаграммы...
2 - Як взнати на скіки літрів відро...
2
var i, k, count: integer;
A: array[1..N] of integer;
begin
writeln ('vvedite chisla');
for i:=1 to N do begin
k:=k+1;
readln(A[k]);
if A[k]=0 then
break
end;
for i:=1 to K-1 do
if A[k] mod 3 =0 then
count:=count+1;
writeln('кол-во чисел, кратных трем: ', count);
end.