Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
okmaksimowac2
02.08.2022 18:23 •
Информатика
Дан массив к из 15 целых случайных чисел из интервала [0,50]. найти в массиве: к5 – количество чисел, кратных 5, к3 – количество чисел, кратных 3.
Показать ответ
Ответ:
VIktoriafedornak
10.10.2020 17:26
Const n=15;
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5:=0; k3:=0;
for i:=1 to n do
a[i]:=random(51);
for i:=1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Алижан07
22.11.2021 21:35
Моделирование процессов в электронных таблицах. Урок 3 Марату необходимо составить диаграмму распорядка своего дня. Он распределил свои 24 часа в табличной модели следующим образом:Но...
margomds
26.01.2023 11:57
Bonpoc 11Результатомвычисления print (23 // 3) будетчисло:...
kekmanchik
13.10.2021 18:11
Вопрос 6 Имена переменных не могутвключать:Варианты ответовРусские буквыЛатинские буквыПробелыСкобки, знаки + = !?bдр.Цифры...
холера678
25.06.2022 23:25
Что будет в результате выполнения следующегоалгоритма программы:Входные данные:1545a = int(input())b = int(input())ifa 6 10 == 0 or b% 10 — 0:print( YES )else:print( NO )Варианты...
Алисик980
02.09.2021 19:00
3. С какими препятствиями мы столкнемся, если не будет ни одно- го графического редактора: ни растрового, ни векторного?4. Определи сходства и различия между векторной и растровой...
dashenkanosova5
09.04.2020 00:11
Обязательно с использованием вс алгоритма...
Lolkekcheburek228322
18.02.2021 12:25
Напишите программу на языке бейсик для следующего неравества...
lizatrubach2002
23.04.2023 14:10
Написать программу на яп паскаль: из чисел от 10 до 99 вывести те, сумма цифр которых равна s ( чтобы в программе были формулы по нахождению p1 и p2 и чтобы программа была выполнена...
alieismailova1
03.02.2020 22:18
Напишите программу: даны два массива a и b, каждый из которых состоит из 13 элементов; массивы взяты в диапазоне от -50 до 50; элементы вводятся случайным образом(randomize); найти...
Фара1323
06.02.2021 03:47
Монитор позволяет получать на экране сверху 2 24 цветов какой обём памяти в байтах занимает 1 пиксель...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5:=0; k3:=0;
for i:=1 to n do
a[i]:=random(51);
for i:=1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.