1. Определить в программе, является ли введенный с клавиатуры символ цифрой, большой или маленькой латинской буквой.

var symb: char;

begin

   write('Введите символ: ');

   readln(Symb);

   case Symb of

      'a'..'z': writeln('Это мал. английская буква');

      'A'..'Z': writeln('Это бол. английская буква');

      '0'..'9': writeln('Это цифра');

   else writeln (‘Это не латинская буква или цифра’);

   end;

end.

2. Написать программу, определяющую по номеру месяца название сезона года.

var month: integer; season: string;

begin

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

   readln(month);

   case month of

      1,2,12: season := 'Зима';

      3..5:     season := 'Весна';

      6..8:    season := 'Лето';

      9..11:  season := 'Осень';

      else     season := 'неверный номер месяца';

   end;

   writeln('Это ',season);

end.

3. Предыдущую задачу можно решить также с использованием условного оператора, но этот способ выглядит явно неудобным.

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

   readln(month);

   if (month=1) or (month=2) or (month=12) then

season := 'Зима'

   else if (month=3) or (month=4) or (month=5) then season := 'Весна'

   else if (month=6) or (month=7) or (month=8) then season := 'Лето'

   else season := 'Осень';

   writeln('Это ',season);

4. Написать программу, которая будет показывать название месяца по его номеру

var n: byte;

begin

   writeln(‘Введите номер необходимого месяца’);

   read(n);

   case n of

   1: writeln(‘Январь ’);    2: writeln(‘Февраль ’);

   3: writeln(‘Март’);    4: writeln(‘Апрель ’);

   5: writeln(‘Май ’);    6: writeln(‘Июнь ’);

    7: writeln(‘Июль’);    8: writeln(‘Август’);

   9: writeln(‘Сентябрь’);    10: writeln(‘Октябрь’);

   11: writeln(‘Ноябрь’);    12: writeln(‘Декабрь’);

   else writeln(‘Месяца с номером’, n,’нет’);

   end;

end.