Меню сайта

Задача №14

Дан номер месяца – целое число в диапазоне 1-12( 1- январь, 2 –февраль и т.д.). Вывести название времени года («зима», «весна», «лето», «осень»).


Program case_3-

Var k:integer-

Begin

Writeln(‘введите номер месяца -‘)-

Readln(k)-

Case k of

1,2,12:Writeln(‘зима’)-

3-5:Writeln(‘весна’)-

6..8:Writeln (‘лето’)-

9..11:Writeln(‘осень’)-

Else Writeln(‘такого месяца не существует’)-

end-

Readln-

End.

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

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