Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
stas2491
15.11.2021 16:06 •
Информатика
Написать программу: попугай рома вытягивает каждый из семи дней случайным образом число от 1 до 10. сколько чётных и сколько нечётных чисел он вытянул за неделю.
Показать ответ
Ответ:
tatleb
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 оценок)
Популярные вопросы: Информатика
natakubkina78
19.08.2022 11:39
Для вывода базы данных на печать используется объект...
Иркутяночка52017
08.04.2020 14:21
Ястолкулся с такой проблемой у меня пропал звук. если кто знает что случилось или чем может я вас...
Математикаалгебра
11.04.2021 17:52
Считая, что каждый символ кодируется одним байтом, определите информационный объём (в битах) следующего выражения: В семи литрах 7000 миллилитров. 2) Чему равен объём текста, если...
yagunovaliza
09.04.2022 00:12
тветьте на вопрос,как вы понимаете выражение: «Русский мир откроет нам глаза на мир»? Дайте развернутый ответ....
Nastya4816
04.06.2020 22:11
3-тапсырма Сөздерді мағынасына қарай сәйкестендір. 1.Шөлді. 2.Табиғи3.Өсімдіктер4.Тіршілік5.Табиғи6.Ұқыпты7.Табиғи8.Сарқылмайтына)Лабораторияә)Аймақтарб)Түрдев)Ресурстарг)Әлеміғ)Өңірлердід)Дүниеж)Ететін...
dorisova
02.03.2023 18:47
У прислівнику по-новОМУ виділена частина слова є: 1.суфіксом2.закінченням3.префіксом4.постофіксом5.інтерфіксом...
Vasianeumaha
01.07.2022 13:26
2- тапсырма. Сұхбатты толықтырып жазыңдар. — Ахмет Ясауи қандай адам болған? — ... . — Ол қашан, қайда туған? — ... . — Қай қала Қазақ хандығының орталығы болған? — ... . —Түркістан...
elizavetafilip2
18.05.2020 17:55
Тапсырма 1 Кестені толтырыңыз. Мемлекеттер Хронологиялық шеңбері,билеушілері. Алып жатқан территориясыАлтын Орда Ақ Орда Моғолстан Әбілқайыр хандығы Ноғай Ордасы ( )2Тапсырма. Сәйкестікке...
23414262
15.01.2021 01:11
Комек тесиндер нужно ...
Dina333098
01.04.2022 13:40
4. Решите проблему, написав уравнение. Длина прямоугольника на 7 см больше стороны квадрата, а ширина на 7 см меньше. Какие сорта имеют самую большую площадь и сколько?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 четных