Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Daniela04102005
06.10.2021 22:46 •
Информатика
Дан массив из 10 элементов. определить количество элементов, кратных 5, но не кратных 3
Показать ответ
Ответ:
влад2262
08.10.2020 02:21
Program n1;
var a: array[1..10] of integer;
k,i: integer;
begin
randomize;
write('массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
if (a[i] mod 5=0) and (a[i] mod 3<>0) then k:=k+1;
end;
writeln;
write('k=',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
arinashemetova
29.10.2022 05:36
Использование базы данных в различных профессиях ( сообщение по информатике...
666SmEtAnKa666
06.03.2021 05:38
3. в квадрат вписана окружность (рис. 1.3). определить площадь заштрихованной части фигуры, если известен радиус окружности. java , нужно...
Vlad2691
18.02.2020 21:02
2. в каком порядке происходит выход из последовательности рекурсив- ных обращений?...
Ваняобана
30.11.2020 23:04
1. Информационное сообщение объёмом 3,5 килобайта содержит 7168 символа. Сколько символов содержит алфавит, при которого было записано это сообщение? 2. Информационное сообщение...
zai4onok1988
28.12.2022 11:54
Відстань між гребенями хвиль у морі дорівнює 5 м. Коли катер іде назустріч хвилям, то вони вдаряються об його корпус через 0.25 с, а коли за хвилею то через 0.5 с. Визначте швидкість...
mayyyyyyka
04.11.2022 01:19
243А. Прочитайте стихотворение Музафара Алимбаева. Слева приведены изобразительно-выразительные средства. Подчеркните их в тексте. Справа, напротив каждого подчеркнутого изобразительно-вы-разительного...
khairulliniljap00rzn
10.08.2022 03:20
Write a letter to the editor (90-110 words) expressing your view about overfilled garbage bins in your area. Use relevantgrammar and vocabulary. Follow the structure of a letter:1)...
нету36
07.04.2020 20:24
Прочитайте заметку. 1. Запишите основную мысль заметки. В каком предложении она выражена? 2. Сформулируйте и запишите «толстые» вопросы по заметке (3 вопроса). В Баку на заседании...
ььь55
09.08.2022 17:13
Что общего между главными героями Ромео и Джульета и повести Капитанская дочка? чем отличаются главные герои произведений? ПО БЫСТРЕЙ И КРАТКО...
dashoostik
10.08.2020 01:31
Нужна с английским языком. Тот кто первый ответит, я честно поставлю лайк, поблагодарю, прокомментирую и оценю. Но! Нарушение правил - бан! ;-)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..10] of integer;
k,i: integer;
begin
randomize;
write('массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
if (a[i] mod 5=0) and (a[i] mod 3<>0) then k:=k+1;
end;
writeln;
write('k=',k);
end.