DECLARE FUNCTION MaxDay! (Y%, M%) REM Определение количества дней в месяце DATA 31,28,31,30,31,30,31,31,30,31,30,31 DIM SHARED DAYS(1 TO 12) FOR J = 1 TO 12: READ DAYS(J): NEXT J CLS INPUT "Задайте год : ", Y% INPUT "Задайте месяц : ", M% PRINT "Число дней в этом месяце = "; MaxDay(Y%, M%) END FUNCTION MaxDay (Y%, M%) MaxDay = DAYS(M%) IF M% <> 2 THEN EXIT FUNCTION IF (Y% MOD 400 = 0) OR ((Y% MOD 4 = 0) AND (Y% MOD 100 <> 0)) THEN MaxDay = 29 END IF END FUNCTION