|
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
|