По данному числу n от 1 до 365 определите, на какое

По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n.

Входные данные
Дано одно целое число n.

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

Задать свой вопрос
1 ответ
Var   a: integer;begin  read(a);    if (a gt;= 1) and (a lt;= 31) then write(a,' ',1);  if (a gt;= 32) and (a lt;= 59) then write((a - 31),' ',2);  if (a gt;= 60) and (a lt;= 90) then write((a - 59),' ',3);  if (a gt;= 91) and (a lt;= 120) then write((a - 90),' ',4);  if (a gt;= 121) and (a lt;= 151) then write((a - 120),' ',5);  if (a gt;= 152) and (a lt;= 181) then write((a - 151),' ',6);  if (a gt;= 182) and (a lt;= 212) then write((a - 181),' ',7);  if (a gt;= 213) and (a lt;= 243) then write((a - 212),' ',8);  if (a gt;= 244) and (a lt;= 273) then write((a - 243),' ',9);  if (a gt;= 274) and (a lt;= 304) then write((a - 273),' ',10);  if (a gt;= 305) and (a lt;= 334) then write((a - 304),' ',11);  if (a gt;= 335) and (a lt;= 365) then write((a - 334),' ',12);  readln;  readlnend.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт