Напишите программу в Паскаль, которая получает день и номер месяца, а выводит количество дней, оставшихся до Нового Года. Считайте, что год невисокосный (365 дней). Учтите, что слово "дней" может иметь также формы "день" и "дня". Пример: Введите день и месяц: 25 12 Осталось 7 дней до Нового Года. Пример: Введите день и месяц: 1 1 Осталось 364 дня до Нового Года. Пример: Введите день и месяц: 31 2 Неверная дата.

Предыдущий
вопрос Следующий
вопрос

program DaysToNewYear;
var
day, month, daysLeft: integer;
begin
writeln('Введите день и месяц: ');
readln(day, month);
if (month < 1) or (month > 12) then
writeln('Неверная дата.')
else
begin
case month of
1: daysLeft := 364 - day;
2: daysLeft := 334 - day;
3: daysLeft := 306 - day;
4: daysLeft := 275 - day;
5: daysLeft := 245 - day;
6: daysLeft := 214 - day;
7: daysLeft := 184 - day;
8: daysLeft := 153 - day;
9: daysLeft := 122 - day;
10: daysLeft := 92 - day;
11: daysLeft := 61 - day;
12: daysLeft := 31 - day;
end;
if daysLeft = 1 then
writeln('Остался 1 день до Нового Года.')
else if (daysLeft > 1) and (daysLeft <= 4) then
writeln('Осталось ', daysLeft, ' дня до Нового Года.')
else
writeln('Осталось ', daysLeft, ' дней до Нового Года.');
end;
end.