Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
кукушка139
30.12.2020 16:48 •
Информатика
Дан одномерный целочисленный массив из n чисел. найти количество четных элементов кратных к трем и семи.(блок схема не нужна) 15
Показать ответ
Ответ:
ezdar04
04.10.2020 05:20
Var n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if not odd(a[i]) then
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);
writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
shitova20023p02gai
05.09.2021 19:47
7. Наука, изучающая информацию и информационные процессы -A) інформатикаB) КриптоанализC) КриптографияD) КибернетикаE) КриптологияE(L...
света9710
28.09.2021 02:13
Представлен пример: a=float(input(O) b=float(inputO)) t=a+b print(t) Какое значение примет данный пример?152o25,4O helloоTrue...
chukalina
25.03.2020 14:08
Составить алгоритм вычисления значений функции, заданной следующим образом:x, при x -1 Y=sin(x), при x -1...
FairTail
12.07.2022 19:12
А) 21. Базовая аппаратнаяконфигурация?А) Сканер, принтерВ) Периферийные устройстваC) Системный блок, монитор,клавиатура, мышьD) программыE) Монитор, дискиB)C)...
vanyakolesov1
26.12.2021 09:59
8в программе «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций...
Maia55444
02.12.2022 12:19
Сделайте блок-схему по условию и трассировочную таблицу по условию задачиЗАРАНЕЕ...
serega20467
24.07.2022 19:09
Выполните табуляцию одной из функций (табл.) по варианту и постройте ее график. Номер варианта назначает преподаватель. № Функция Аргумент: начало, конец, шаг 1. y=Exp(-x3)...
pervushina245
13.10.2020 14:44
Определите назначение цифр 1 и 2 в текстеКазахстанские железные дороги обеспечивают1 68% всего грузооборота2...
ikonnikoval
14.03.2021 20:47
Найти геометрическое решение уравнения . Ключ к заданию: Значения х меняются от 1 до 15. Вычисляются значения функций по формулам: и с использованием мастера функций, решение...
khleskina02
07.08.2020 03:31
Какие бывают услуги компьютерных сетей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..1000] of integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы');
for i:=1 to n do
read(a[i]);
k:=0;
for i:=1 to n do
if not odd(a[i]) then
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);
writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.