Integer30. Дан номер некоторого года (целое положительное число). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год.
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Integer30; var Year,Century: Integer; begin Write('Введите номер года: '); Readln(Year); Century:=((Year-1) div 100)+1; Writeln('Это год ',Century,' столетия.' ); end. |
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: