Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
shalyaeg
13.12.2022 12:03 •
Информатика
Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Показать ответ
Ответ:
mereysi11
03.10.2020 16:11
Var i,s: integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(13)+1;
if (a[i]=3)or(a[i] mod 10 = 3) then s:=s+1;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aizhan0989
10.08.2021 09:22
118) Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v, w)...
456778757
29.09.2022 22:15
Если количество цветов в палитре равно 65 536, то глубина цвета равна … 16 24 4 8...
daysannas
18.06.2022 15:41
Составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4...
небопоможетнам1
04.10.2020 18:38
Код буквы О в некоторой таблице кодировки символов равен 142. Что зашифровано с последовательности кодов: 145 143 142 144 146 Выберите один ответ: a. СРORT b. SNORT c. СПОРТ d....
jrihdevhdve
06.08.2022 02:00
1. постройте в электронных таблицах двумерную модель «жизнь». проведите вычислительный эксперимент с разными вариантами первоначального расселения организмов. попробуйте найти такие...
НикСол
16.04.2023 09:57
Составить сообщение о любом диком животном (название ,где живёт.чем питается,описание внешности.что умеет делать)6-7 предложений на языке...
denzozp08hc1
16.04.2023 09:57
Как проверить ю в слове сыростью(пахло)...
456778757
16.04.2023 09:57
Стороны угла а параллельны сторонам угла в. чему равен каждый угол, если...
dhsjkhd
16.04.2023 09:57
Какое давление оказывает. сила 6 кh на опору площадью 300см?...
irinkailnitska11
16.04.2023 09:57
Сотавить предложение на казахском языке с падежным окончанием...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(13)+1;
if (a[i]=3)or(a[i] mod 10 = 3) then s:=s+1;
end;
writeln(s);
end.