Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
evolved
19.04.2022 16:31 •
Информатика
Составьте программу на языке паскаль. среди 15 случайных чисел из диапазона (-25; 15) найти количество чисел, делящихся на 5, но не делящихся на 10.
Показать ответ
Ответ:
lok2005
03.10.2020 11:06
Var a,k,i:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do
begin
a:=random(41)-25;
write(a,' ');
if abs(a) mod 10 = 5 then k:=k+1;
end;
writeln;
writeln('k = ',k);
end.
Пример:
-6 -20 -24 -22 10 -18 -10 10 -5 -12 9 -24 15 1 -15
k = 3
0,0
(0 оценок)
Популярные вопросы: Информатика
736Nikolay11111111
03.05.2022 10:29
Перечислите через запятую не меньше 5 устройств ввода информации....
Diana111111112
20.06.2021 14:46
Придумай название зверю и заполни таблицу,состав действия,нужно заполнить таблицу...
zoology1g
20.06.2021 14:46
Система счисления - это - представление числе в экспоненциальной форме - представление чисел с постоянном положением запятой представления чисел с символом, имеющих определенное...
GastDaniil
19.11.2021 09:24
На тарелке лежат апельсины. сначала из неё взяли половину всех апельсинов и половину апельсина, затем половину остатка и ещё половину апельсина. наконец, ещё взяли половину...
Elizzzavettta
13.03.2021 23:21
Сpascal последовательности! найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. остановить обработку при вводе заказанного...
123654789e
13.03.2021 23:21
Часовой завод, изготовил в январе часы вида а — 150 шт.. вида в -230 шт.. вида с — 180 шт. в феврале производство продукции выросло: вида а на 5%. вида в на 3%, с на 2 %. в...
Steam1112
15.05.2023 16:43
Дана последовательность из n целых чисел. найти сумму нечётных элементов этой последовательности....
077k
10.12.2022 13:44
решить задачи 2.) Для узла с IP-адресом 111. 81. 208.27 адрес сети равен 111. 81. 192.0. Чему равно наименьшее возможное значение третьего слева байта маски? ответ запишите...
nastyan00
05.03.2023 03:43
Задание по поисковым за Расположить в порядке возрастания...
Зореслава
06.01.2020 13:44
Будьласка напишить твир на тему мова - цілюще народне джерело 6-7 реч 15...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Randomize;
k:=0;
for i:=1 to 15 do
begin
a:=random(41)-25;
write(a,' ');
if abs(a) mod 10 = 5 then k:=k+1;
end;
writeln;
writeln('k = ',k);
end.
Пример:
-6 -20 -24 -22 10 -18 -10 10 -5 -12 9 -24 15 1 -15
k = 3