daysinmonth

Ответ от Андрей Борисов[гуру]
case NomMonth of
1: CountDay:=31;
2: CountDay:=28;
...
12: CountDay:=31;
end;

Writeln(Day);

Ответ от Бугаев Сергей Дмитриевич[гуру]
Без указания года невозможно выяснить, является ли он високосным, поэтому неизвестно количество дней в феврале данного года. Вот функция, не учитывающая високосность года:

function getMonthDaysCount(MonthNumber: integer): integer;
begin
if ((MonthNumber <= 7) and (MonthNumber mod 2 = 1)) or ((MonthNumber >= 8) and (MonthNumber mod 2 = 0) then
getMonthDaysCount := 31
else
getMonthDaysCount := 30;

if (MonthNumber = 2) then getMonthDaysCount := 28;
end;

Ответ от Нихто =)[новичек]
Сейчас понятие "Паскаль" несколько размытое, поэтому напишу "несколько ответов в одном".
Для Паскаль типа Tubo Pascal 7.0 один из вариантов (взято с ) :
...
const DaysInMonth : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
...
var
Month, Day: Integer;
begin
Day := DaysInMonth[Month];
...
Для FreePascal или Delphi есть функция DaysInMonth (см. или ):
FreePascal - function DaysInMonth(const AValue: TDateTime): Word;
Delphi - function DaysInMonth (Year: Integer; Month: Integer): Integer;

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]