В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
nOMOSHHuK
nOMOSHHuK
08.09.2022 00:53 •  Информатика

По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. входные данные дано одно целое число n. выходные данные программа должна вывести два числа: число месяца (от 1 до 31) и номер месяца (от 1 до 12), соответствующие дню с номером n.

Показать ответ
Ответ:
смурфик15
смурфик15
14.07.2020 17:11
Var   a: integer;begin  read(a);    if (a >= 1) and (a <= 31) then write(a,' ',1);  if (a >= 32) and (a <= 59) then write((a - 31),' ',2);  if (a >= 60) and (a <= 90) then write((a - 59),' ',3);  if (a >= 91) and (a <= 120) then write((a - 90),' ',4);  if (a >= 121) and (a <= 151) then write((a - 120),' ',5);  if (a >= 152) and (a <= 181) then write((a - 151),' ',6);  if (a >= 182) and (a <= 212) then write((a - 181),' ',7);  if (a >= 213) and (a <= 243) then write((a - 212),' ',8);  if (a >= 244) and (a <= 273) then write((a - 243),' ',9);  if (a >= 274) and (a <= 304) then write((a - 273),' ',10);  if (a >= 305) and (a <= 334) then write((a - 304),' ',11);  if (a >= 335) and (a <= 365) then write((a - 334),' ',12);  readln;  readlnend.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота