Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mailnadejda
30.01.2021 10:37 •
Информатика
(( написать программу на паскале. напишите процедуру (или функцию) определения годов столетия, содержащих максимальное число воскресений.
Показать ответ
Ответ:
Amineshin
13.08.2020 23:54
//PascalABC.NET 3.1 сборка 1239
uses System;
uses System.Collections;
begin
var d := DateTime.Today;
repeat
d := d.AddDays(1);
until d.DayOfWeek = DayOfWeek.Sunday;
var Sundays := new Dictionary<integer, integer>();
repeat
if Sundays.ContainsKey(d.Year) then
Sundays[d.Year] += 1
else
Sundays.Add(d.Year, 1);
d := d.AddDays((-7));
until d.Year <= 1;
var max := Sundays.Values.Max;
Sundays.Where(x -> x.Value = max).Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dianaverina7777
08.05.2022 06:42
Вдвух байтах представлено целое отрицательное число в формате с фиксированной точкой 1000000100000101 переведите число в десятичную систему счисления...
overlord14
07.02.2020 22:43
Названия всех известных вам устройств которые могут быть подключены к компьютеру...
VicusiaKoval
28.04.2022 23:19
Разложите на множители 1) 16x-24xy 2) 9a-18a 3) 9m-9n+my-ny...
rzaynullina
28.04.2022 23:19
Улги - онеге, ойлай - ойлай, жалт - жулт, топ-топ. составить пару предложений...
Sungatullinraf
28.04.2022 23:19
Найдите значение функции f(x)=0.6x+x0.6 при x =0,-1,0,1....
Сергей965
28.04.2022 23:19
Синтаксический разбор предложения.постоянный дождичек сеет и сеет на пустые поля,на пустые скворечники,на пустые гнезда,на пустые обнаженные леса...
neznakomka1408
28.04.2022 23:19
По 9 1. по общей длине железных дорог россия: а) занимает первое место в мире б) занимает первое место в европе и третье в мире, уступая канаде и сша в) уступает...
Klobutska
28.04.2022 23:19
Переведите на каз.яз рисунке я вижу казахскую девушку.по рисунку видна то что эта девушка танцовщица.у девушки красивая улыбка.на ней одета казахское платье,белым...
ирт3
28.04.2022 23:19
30 за правильний ответ ! тетяна прочитала першого дня 40%усі книжки, ждругого дня 60% решти а третого дня решту 72 сторінки. скільки сторінок у книзі?...
ghostridermen
28.04.2022 23:19
Почему сорока приносит все блестящие вещи к себе домой?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses System;
uses System.Collections;
begin
var d := DateTime.Today;
repeat
d := d.AddDays(1);
until d.DayOfWeek = DayOfWeek.Sunday;
var Sundays := new Dictionary<integer, integer>();
repeat
if Sundays.ContainsKey(d.Year) then
Sundays[d.Year] += 1
else
Sundays.Add(d.Year, 1);
d := d.AddDays((-7));
until d.Year <= 1;
var max := Sundays.Values.Max;
Sundays.Where(x -> x.Value = max).Println;
end.