Question

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

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;