Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Oho9
13.05.2022 07:10 •
Информатика
Написать программу: попугай рома вытягивает каждый из семи дней случайным образом число от 1 до 10. сколько чётных и сколько нечётных чисел он вытянул за неделю.
Показать ответ
Ответ:
dmitry113114
08.10.2020 02:07
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,10); a.Println;
var kOdd:=a.Where(t->t.IsOdd).Count;
Writeln(kOdd,' нечетных, ',7-kOdd,' четных')
end.
Пример
7 2 3 4 2 5 3
4 нечетных, 3 четных
0,0
(0 оценок)
Популярные вопросы: Информатика
nikita1424
27.06.2021 22:59
Скорость передачи данных через adsl соединение равна 16 мегабит в секунду передача файла через это соединение заняла 3 минуты определите размер файла в мегабайтах...
rodionmihailof
11.11.2022 15:15
Сторона информацию. сторона принимающая информацию. система обмена письмами с компьютера по информатике 5 класс...
728099
23.11.2020 16:40
Чиста 4, 6: 105 6,5 10* записаны в стандартном виде: а) сравните числа; b) найдите сумму, ответ запишите в стандартном виде: с) найдите разность, ответ запишите...
omusheg
23.11.2020 16:40
Что стало причиной начала Столетней войны?...
0007инкогнет0007
09.09.2021 15:10
У меня сестренка споашивает как дети появляются? ответте поржом...
nimiilo1
22.04.2021 09:45
Что это такое мне постоянно приходит уведомления типо вам пришло сообщения а там написано сообщений нет )))...
Wer77
08.03.2022 12:41
Диалог. ғаламдық жылыну» тақырыбында диалог құрастыр (6 вопросов, 6 ответов) ...
Taticyan707
08.03.2022 12:41
Прямая проходит через вершину квадрата и образует с его стороной угол alpha. Найдите расстояние доэтой прямой от центра квадрата, если его сторонаравна1, а ѕіn alpha...
aspier2016
03.11.2022 03:48
Задание 1. Выберите правильный ответ. 1. Положение, которое стало взглядом французских просветителей:А) Идеал государственной власти – конституционная монархия или...
treetmeh
03.11.2022 03:48
Основания BC и AD трапеция ABCD равны соответственно 12 и 75 , AC = 30 , Докажите что треугольники CBA и AСD подобны. ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,10); a.Println;
var kOdd:=a.Where(t->t.IsOdd).Count;
Writeln(kOdd,' нечетных, ',7-kOdd,' четных')
end.
Пример
7 2 3 4 2 5 3
4 нечетных, 3 четных