От чего надо защищать носителей: жесткий диск, cd , dvd, флеш-память, blue-ray?
276
455
Ответы на вопрос:
Var a: array of integer; i, num, len, amount: integer; begin amount : = 0; len : = 1; i : = 0; num : = -1; write('введите последовательность чисел -> '); repeat setlength(a, len); read(a[i]); num : = a[i]; i += 1; len += 1; // длина массива until (num = 0); for i : = 0 to high(a) do if (a[i] mod 7 = 0) and (a[i] mod 2 = 0) and (a[i] < > 0) then amount += 1; write('количество чётных чисел, кратных 7: ', amount, '.'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
matvienko1424.10.2022 20:22
-
Финн201415.12.2020 11:19
-
мимими10926.09.2021 18:11
-
ДинаСардина03.09.2021 20:25
-
elen7211.06.2022 07:38
-
алинка55410.07.2021 14:33
-
negatiff9519.01.2021 19:57
-
Ramazan140315.12.2020 22:38
-
Vitalihka03.01.2021 16:46
-
nusbek19.01.2022 09:40
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.