Определить число дней в месяце

@Павел 1990 · Регистрация: 31.10.2014

Студворк — интернет-сервис помощи студентам

Составьте программу для определения числа дней в месяце, если даны:
номер месяца N – целое число от 1 до 12, целое число А, равное 1 для високосного года и 0 в противном случае.

@vint-81 · 31.10.2014, 23:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const a:array[1..12]of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
      n:array[1..12]of string[8]=('январе','феврале','марте','апреле',
                                  'мае','июне','июле','августе',
                                  'сентябре','октябре','ноябре','декабре');
      f:array[boolean]of string=(' не високосного года ',' високосного года ');                            
var   b,m:byte;
      s:string[4];
      s1:string;
begin
      repeat
       writeln('год=?, 1-високосный, 0-нет');
       readln(b)
      until b in [0,1]; 
      if odd(b) then inc(a[2]);
      repeat
       writeln('месяц=?, от 1 до 12');
       readln(m);
      until m in [1..12];
      case a[m] mod 10 of
       0,8,9: s:='дней';
       1: s:='день';
      end;
      writeln('в ',n[m],' месяце',f[odd(b)],a[m],' ',s);
      readln
end.

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Павел 1990 0 / 0 / 0 Регистрация: 31.10.2014 Сообщений: 7

	Определить число дней в месяце 31.10.2014, 19:42. Показов 2184. Ответов 1 Метки нет (Все метки) Составьте программу для определения числа дней в месяце, если даны: номер месяца N – целое число от 1 до 12, целое число А, равное 1 для високосного года и 0 в противном случае. 0

Определить число дней в месяце

Решение