Написать программу, которая по порядковому номеру месяца выводит на экран время года (прим: при введении с клавиатуры числа 5, программа пишет на экране "осень")

Question

Информатика

Миха

4 апреля, 14:01

Написать программу, которая по порядковому номеру месяца выводит на экран время года (прим: при введении с клавиатуры числа 5, программа пишет на экране "осень")

+4

Ответы (1)

Знаете ответ?

Калиса · Answer 1

Var

A:integer;

Begin

WriteLn ('Введите номер месяца') ;

ReadLn (A) ;

A:=A mod 12;

Case A of

0,1,2:WriteLn ('Зима') ;

3,4,5:WriteLn ('Весна') ;

6,7,8:WriteLn ('Лето') ;

9,10,11:WriteLn ('Осень')

End

End.