напишите программу которая вводит с клавиатуры номер месяца и день и определяет сколько дней осталось до нового года

Question

Информатика

Северин

5 апреля, 10:16

напишите программу которая вводит с клавиатуры номер месяца и день и определяет сколько дней осталось до нового года

+1

Ответы (1)

Знаете ответ?

Томуля · Answer 1

123456789101112131415 function CountDay (a: integer) : integer; begin if (a = 1) then countday : = 31; if (a = 2) then countday : = 28; if (a = 3) then countday : = 31; if (a = 4) then countday : = 30; if (a = 5) then countday : = 31; if (a = 6) then countday : = 30; if (a = 7) then countday : = 31; if (a = 8) then countday : = 31; if (a = 9) then countday : = 30; if (a = 10) then countday : = 31; if (a = 11) then countday : = 30; if (a = 12) then countday : = 31; end;