Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
jeneusbwidbiehsbf
29.07.2022 09:23 •
Информатика
Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Показать ответ
Ответ:
КристинаВощевоз555
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 оценок)
Популярные вопросы: Информатика
soloveva2506
28.04.2021 23:24
Составить программу нахождения произведения элементов массива от 1 до 6...
anjellalove094
09.10.2021 09:31
30pointswhat’s the best way to add devices to a computer system? ...
Olga692010
20.08.2022 20:07
Выполни сложение в двоичной системе 1011+101...
kinzya
03.02.2022 23:54
Что может рассматриваться в качестве фрагмента текста...
t12345k
30.10.2022 01:44
Составить на листке блок-схему: 1. найти площадь стен в классе, для покраски. высота класса h метров, длина пола aметров, ширина — b метров. в классе окон нет. потолок и пол не...
maytanya47
15.09.2021 15:38
Вцветовой модели rgb для кодирования одного пикселя используется 3 байта. фотографию размером 2126×2953 пикселей сохранили в виде несжатого файла с использованием rgb-кодирования....
mlyz
27.07.2020 07:06
Буду ! составьте программу для нахождения нод 4 чисел ....
bondarsvetlana25
16.09.2022 22:35
Если маска подсети 255.255.240.0 и ip-адрес компьютера в сети 132.126.150.18, то номер компьютера в сети...
handofkremlin
10.09.2020 13:52
C++. даны два натуральных числа. выяснить, в каком из них сумма цифр больше. определить функцию для расчета суммы цифр натурального числа....
Alexy7406
04.05.2023 08:44
Взабеге участвовали 10 россиян,5украинцев и 5 белорусов. количество информации в сообщение о том,что победил белорус, считая,что победа любого из участников равновероятна, составит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.