zadach315.BAS

{* Задача315 *}

REM basic

' Составить программу, которая по введенному году (от 800 до 2011) выдает соответствующий век (849 — IХ век, 1995 — XX век, …)


CLS
INPUT god
PRINT GOD " - ";
 
Select Case god  100
        Case 8: PRINT "IX век"
        Case 9: PRINT "X век"
        Case 10: PRINT "XI век"
        Case 11: PRINT "XII век"
        Case 12: PRINT "XIII век"
        Case 13: PRINT "XIV век"
        Case 14: PRINT "XV век"
        Case 15: PRINT "XVI век"
        Case 16: PRINT "XVII век"
        Case 17: PRINT "XVIII век"
        Case 18: PRINT "XIX век"
        Case 19: PRINT "XX век"
        Case 20: PRINT "XXI век"              
End Select
End