1 2 3 4 5 6 7 8 9 10 | CLS : DEFINT A-ZAgain: INPUT "Enter month : ", Mes IF ABS(Mes) > 12 OR Mes = 0 GOTO Again SELECT CASE Mes CASE 3 TO 5: Vr$ = "VESNA" CASE 6 TO 8: Vr$ = "LETO" CASE 9 TO 11: Vr$ = "OSEN'" CASE ELSE: Vr$ = "ZIMA" END SELECTPRINT Vr$ |
Тестирование выполнено в программе QB64 ( Скачать )