1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSINPUT "Vvedite nomer mesjaca:", nSELECT CASE n CASE 1: PRINT "yanvar" CASE 2: PRINT "fevral" CASE 3: PRINT "mart" CASE 4: PRINT "aprel'" CASE 5: PRINT "maj" CASE 6: PRINT "ijun'" CASE 7: PRINT "ijul'" CASE 8: PRINT "avgust" CASE 9: PRINT "sentjabr'" CASE 10: PRINT "oktjabr'" CASE 11: PRINT "nojabr'" CASE 12: PRINT "dekabr'" CASE ELSE: ENDEND SELECT |
Тестирование выполнено в программе QB64 ( Скачать )