Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Апостол16
10.12.2022 06:10 •
Информатика
Дан массив из 10 элементов. определить количество элементов, кратных 5, но не кратных 3
Показать ответ
Ответ:
daniltyrov719
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 оценок)
Популярные вопросы: Информатика
SlavZgr
19.07.2020 21:33
1. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». В таблице...
незнаю177
02.03.2020 10:11
Дана геометрическая модель (рис. 3.47), у которой длина стороны картонного листаобозначена а, а длина выреза - b. Вычисли-те объем геометрической модели.Математическая...
Кети20060106
16.08.2021 13:44
Совершенно не могу понять, что нужно сделать, обьяснений не было. Так что вашей Конечно бы хотелось видеть сразу ответы)...
лсагамлснс
03.11.2020 08:33
Информационное сообщение объёмом 600 битов состоит из 150 символов. Каков информационный вес каждого символа этого сообщения?...
010Dasha010
13.07.2021 13:40
Синапс это связь между двумя нейронами. У синапсов есть 1 параметр, какой именно?...
annelya009
17.06.2022 21:11
На рисунке - схема дорог, связывающих города а, б, в, г, д, е, ж, и, к. по каждой дороге можно двигаться только в одном направлении, указанном стрелкой. сколько существует...
невидома
17.02.2021 11:55
Для записи текста использовался 64-символьный алфавит.какое количество информации в байтах содержат 3 страницы текста ,если на каждой странице текста расположено 40...
KoNetik2020
08.11.2020 22:44
Распределительный закон) вычислите 19*24+24*151+170*6...
aibarealmadrid
08.11.2020 22:44
Автобус ехал 2ч со скоростью c км ч и 3 ч со скоростью d км ч какое расстояние проехал автобус?...
Коtик
08.11.2020 22:44
Мен с казахском языке. жат қанша сақтансаң да, ол ұл болмас, ол ішіп - жер, киер де кетер, бірақ көрдім демес. мағынаны ашу керек. түсіндіру....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.