tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решите с циклами while
Решите с циклами while и if: определите количество четных элементов в последовательности, завершающейся числом 0.
Zxc1asdqwe
1 06.06.2019 12:20
0
Ответы
helloVika1
18.05.2020 03:41
Как я понял, нужно определить четные элементы массива.
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sestrichkitv
20.06.2019 02:00
Количество листов в брошюре – 14. каждый лист содержит: строк – 42, символов в строке –72. текст имеет ascii-кодировку. поместится ли брошюра на флеш-память, если на ней осталось...
vtrnnst
20.06.2019 02:00
Дано действительное число a. вычислить f(a), если f(x)= система x^2+4x+5, при x...
vaniagaclyc
12.04.2020 12:48
К концу рабочего дня у водителя маршрутки скапливается много монет. Монеты достоинством 1, 2 и 5 рублей водитель относит в сбербанк и обменивает на более крупные денежные знаки....
Maria590986
12.04.2020 12:48
Дан целочисленный массив состоящий из 15 элементов. Элементы массива могут принимать целые значения от -150 до 150 включительно. Опишите на языке C++ алгоритм, позволяющий найти...
cat2522
12.04.2020 12:48
Складіть карту знань із класифікацією загроз інформаційній безпеці користувача Інтернету....
lenyskadi
12.04.2020 12:48
13. Составить программу, проверяющую знание таблицы умножения. В программе выбираются случайным образом целые числа X (1 или равноX или равно9) и Y (1 или равноY или равно9) и...
skuzembaeva
12.04.2020 12:48
В какую папку нужно перейти , чтобы поменять стили выделенного текста?1) Главная2) Вставка 3)Ссылки 4)Ни в какую из вышеперечисленных буду рада...
Alina9392010
08.09.2020 02:52
Определите, какие информационные процессы описаны в следующих примерах: Передача, хранение, поиск, обработка или прием...
mol202kj00
08.09.2020 02:54
Сопоставьте определения единиц измерения информации – бита и байта....
мαрия
07.09.2020 01:00
ЭССЕ на тему: .Влияние информации на мою повседневную жизнь...
Популярные вопросы
Напишите соответствующую форму инфинитива...
2
Выполните умножение: (a+b)(a^3-a^2b+ab^2-b^3)...
2
30 два одинаковых металлических шарика имеют заряды +0,3 мккл и -0,1 мккл....
2
Декабриское движение это приобразование сверху или снизу?...
1
Загальна сума коефіціентів в рівняння і як їх порахувати(алгоритм): mg+hno3-...
3
Зерно из которого делают муку для выпечки черного хлеба...
1
50 1) не нужно еды, воды. 2) ненужно еды, воды. как правильно? почему?...
1
Обчислити концентрацію у відсотках розчинуna2co3,розчинність солі за даної...
2
Гумористичний твір,невеличкий за розміром...
2
Как рисовать в кумире животных чертежник...
3
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.