Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
nikolayy220502
30.06.2022 03:07 •
Информатика
Написать программу, которая выявляла бы перечень годов, кратных 4, но не являющимися високосными.
вариант 5-10
Ответ:
Ларибум
11.10.2020 00:27
PascalABC.NET
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vitaliy55555
02.02.2021 09:37
Определить значение переменной С по фрагменту программы...
ИльяБлажков
23.10.2021 21:16
Описати детально етапи створення логотипу та за до кого він створюється...
2005282
25.01.2021 15:56
Выбери признаки растровой графики...
The1eaten1choc
26.07.2022 20:56
Перечисліть основні об єкти електронних таблиць...
jono1
21.09.2021 23:33
РОБОТА В PYTHON 8 класс Літак Київ-Одеса вилітає за розкладом,якщо швидкість вітру не перевищує 15м/с.Розробити алгоритм і програму визначення,чи вилетить за роскладом літак,якщо...
mixa342
20.03.2020 23:14
Какие символы можно использовать при записи программы на языке Паскаль?ыГF2*...
максон50
04.05.2020 11:49
Выбери верный ответ. 42.83.167.190 — Варианты ответа : 1.доменная система имён 2.цифровая адресация...
OOAAAOO
08.05.2023 12:07
Сделать это(https://yadi.sk/i/P_VseJrS2OQaXg) в exel...
Кись123
26.06.2021 12:29
1. Дан массив действительных чисел A[N]. Найти max(a1+a2n, a2+a2n-1,…,an+an+1). Протестировать программу на массивах размерностью 9 и 12 элементов. 2. Дан массив действительных...
DanaФайн
14.07.2022 14:11
Информатика. Вроде во а я в замешательстве)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
PascalABC.NET
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.