Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
molotower
17.02.2021 09:57 •
Информатика
Написать программу, которая по заданной дате (числу d и месяцу m) определяет число дней от начала года, если известно, что год - не високосный.
Показать ответ
Ответ:
Агата1713
22.06.2020 10:31
Const Months: Array [1..12] Of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var d, m, result, i :integer;
Begin
read(d, m);
for i := 1 to m-1 do
result := result + Months[i];
writeln(result + d);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Котеика1космос
17.03.2021 20:22
Все 5-буквенные слова, составленные из букв а, к, р, у, записаны в алфавитном порядке. вот начало списка: 1. 2. 3. 4. 5. определите сколько всего слов в списке; укажите порядковые...
5765314680
12.05.2021 03:17
Заполните таблицу в каждой строке которой одно и тоже число должно быть записано в системе счисления с основаниями 2 8 10 и 16...
sofialipezina23
14.01.2023 07:23
Проекты SketchUp сохраняются в формате ответьтее...
kabulbekova01
26.05.2023 03:41
Множества элементов A, B и C представлены с кругов Эйлера...
mihajlovalena45
26.10.2022 15:27
Целевые отношения между словами в предложении выражают предлоги: вокруг от для ради вследствие...
shkola56
26.10.2022 15:27
Уразных видов свой ритуал опознания брачного партнер : по пению ,ритуальным позам и тд. о каком критерии вида идет речь ? поясните свою точку зрения...
bataev2007
26.10.2022 15:27
ответить на вопросы по . 1.petey was polite to the dogs, wasn t he? why do you think so? да был вежлив. потому что он хотел чтоб они отдали ему мальчика....
mikkie3
26.10.2022 15:27
Вкаком ряду находятся только соли а)ni(no3)2,h2sio3,mg(bo3)2 б)h2sio3,fes,zn(cio)2 в)znl2,kmno4,naci г)zn(oh)2,p2o5,kcio4...
1охико1
26.10.2022 15:27
Вдетский сад 80кг бананов.в первую группу отправили 1/16,во вторую -1/25 оставшегося.сколько килограммов бананов осталось?...
KitKat321456
26.10.2022 15:27
1.прочитайте слова,вимовляючи дзвінко звуки,які позначені виділеними буквами. вудка-вудочка. грядка,солодкий,редька,берег,голуб,рибка,близько,везти,гризти,мотузка,сережки,стружка,ніжка,дужка,мажте....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var d, m, result, i :integer;
Begin
read(d, m);
for i := 1 to m-1 do
result := result + Months[i];
writeln(result + d);
End.