Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DashaTopjfnfvv
03.11.2021 17:40 •
Информатика
Дан массив из n натуральных чисел .определить количество элементов кратных 3 и не кратных 5
Показать ответ
Ответ:
vaneevartem625
30.06.2020 23:29
VAR
i, el, kol, n: Integer;
BEGIN
Read(n);
kol := 0;
for i := 1 to n do begin
Read(el);
if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
end;
Write(kol);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
lyazkaiman0309
09.05.2021 16:00
Решите ребус по информатике,1 3,чайник...
KeyTii
13.06.2020 11:49
По заданному диаметру половинки круга вычислить площадь фигуры, образованной из двух половин круга и квадрата со стороной, равной диаметру круга. В pascal...
артур631
11.04.2021 20:27
Считая,что каждый символ кодируется одним байтом,определите,чему равен информационный объём следующего высказывания в битах: тысячи путей ведут к заблуждению,к истине...
slava90100
11.04.2021 20:27
Скорость передачи данных через adsl-соединение равна 1024000 бит/с. передача файла через данное соединение заняла 5 секунд. определите размер файла в килобайтах....
vyglotov
11.04.2021 20:27
Какое из чисел является наименьшим : 1) е6 в 16 2)347 в 8 3)11100101 в 23)232 в 10...
Андрей0126
29.04.2021 13:50
Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль...
mariaponomarev1
27.01.2022 17:56
Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1024 x 768 и кол-вом отображаемых цветов...
soonmin
09.01.2022 10:45
какой объём видеопамяти необходим для хранения графического изображения,занимающего весь экран при условии,что разрешающая монитора равна 1280х640 пиксилей,а количество...
yliana23
14.12.2021 09:28
Багаж,баран, ученик, рыба, моя, конь, ежик. напишите сколько букв и сколько звуков в каждом слове....
Bomb9931
26.07.2021 23:06
Замени d одночленом так, чтобы получился квадрат бинома: 64y2−5y+d ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, el, kol, n: Integer;
BEGIN
Read(n);
kol := 0;
for i := 1 to n do begin
Read(el);
if (el mod 3 = 0)and(el mod 5 <> 0) then Inc(kol);
end;
Write(kol);
END.