Меню сайта

Задача №16

Ввести номер месяца. Определить по введенному номеру – квартал.


Program Case_5- —

var — — — -n:integer- —

begin

write(‘Введите номер месяца:’)-

readln(n)-

case n of

1..3 :writeln(‘Первый квартал’)- —

4..6 :writeln(‘Второй квартал’)-

7..9 : writeln(‘Третий квартал’)-

10..12: writeln(‘Четвертый квартал’)
else writeln(‘Некорректный ввод’) —

end- —

Readln —

end.
Категория: Разветвляющиеся программы | Дата: 08.01.13

Меню раздела
Блок