Алфавит для записи сообщения состоит из 32 символов,каков информационный вес слова из 8 букв? указать единицу измерения.
142
468
Ответы на вопрос:
Program z2; var day, month, year: integer; begin writeln('введите число, месяц, год'); readln(day,month,year); if(year mod 4=0) and (year mod 100 < > 0) or (year mod 100=0) and (year mod 400 = 0) then //определение висок. года begin if(month=2) then begin if(day=29) then begin day: =1; month: =3; end else day: =day+1; end else if(month=1) or (month=3) or (month=5) or( month=7) or (month=8) or (month=10) then begin if(day=31) then begin month: =month+1; day: =1; end else day: =day+1; end else if(month=12)then begin if(day=31) then begin year: =year+1; month: =1; day: =1; end else day: =day+1; end else begin if(day=30) then begin day: =1; month: =month+1; end else day: =day+1; end; end else //проверка обычного года begin if(month=2) then begin if(day=28) then begin day: =1; month: =3; end else day: =day+1; end else if(month=1) or (month=3) or (month=5) or( month=7) or (month=8) or (month=10) then begin if(day=31) then begin month: =month+1; day: =1; end else day: =day+1; end else if(month=12)then begin if(day=31) then begin year: =year+1; month: =1; day: =1; end else day: =day+1; end else begin if(day=30) then begin day: =1; month: =month+1; end else day: =day+1; end; end; writeln('следующий день: ',day, ' ',month, ' ',year); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Zavgorodnev0419.04.2020 23:01
-
alisa284727408.09.2022 13:27
-
Милааа1117.07.2021 00:39
-
анксунамун106.01.2021 13:18
-
LopsterId123654330.11.2021 23:01
-
Agata1134530.07.2020 09:05
-
Валерия99911112.04.2023 22:48
-
Аркадий11111112222209.08.2020 00:55
-
vanyu231212209.04.2022 22:43
-
АняГ1108.06.2022 08:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.