Пример case

Пора года

 

Вводится целое число N - номер месяца. Определить пору года.

 

Входные данные:

С клавиатуры вводится целое число N (-30000<=N<=30000).

Выходные данные:

На экран выводится пора года (лето, зима, весна, осень) или сообщение "error" (без кавычек), если месяц не может иметь такой номер.

Примеры:

Ввод Вывод
1 6 лето
2 13 error

 

Решение:

Решение через if:

Program Case1;
Var n: integer;
Begin
     Read(n);
     Case n of
          1,2,12 : Write('
зима');
          3..5 : Write('
весна');
          6..8 : Write('
лето');
          9..11 : Write('
осень');
          else write('
error');
     end;
End.

Program If1;
Var n: integer;
Begin
     Read(n);
     If (n=1) or (n=2) or (n=12)
     then Write('
зима')
     else If (n>=3) and (n<=5)
             then Write('
весна')
             else If (n>=6) and (n<=8)
                     then Write('
лето')
                     else If (n>=9) and (n<=11)
                             then Write('
осень')
                             else write('
error');
End.

Посмотреть в Web-среде

Понедельник
10.12.2018
05:20
Поиск
Календарь
«  Декабрь 2018  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
31