ВОПРОС № 11

ОПЕРАТОР ВЫБОРА

Если у вас не два возможных варианта выполнения программы, а больше, то может использоваться оператор выбора CASE. Структура этого оператора в Турбо Паскале:
CASE <ключ_выбора> OF
C1 : <оператор1>;
C2 : <оператор2>;
. . .
CN : <операторN>;
[ELSE <оператор0>;]
END;

ПРИМЕР: Вводится целое число, если это цифра, то определить четная она или нет, а если число, то определить попадает ли оно в диапазон от 10 до 100, если нет, то выдать соответствующее сообщение.
program chislo;
var         i:integer;
begin
    write('Введите целое число: ');
    readln(i);
    case i of
          0,2,4,6,8 : writeln('Четная цифра');
          1,3,5,7,9 : writeln('Нечетная цифра');
          10..100,200 : writeln('Число от 10 до 100 или 200');
          else writeln('Число либо отрицательное, либо > 100, но не 200');
     end;
     readln;
end.