Question

Запишите общий вид оператора выбора.

Answer 1

case <выражение-селектор > of <список значений1>: <оператор1;> <список значений 2>: <оператор2;> … <список значений N>: <операторN> else<оператор> end;

Program Number1; Var   a : integer; Begin   writeln('Введите цифру ');   readln(a);   if (a<0) or (a>9)     then       writeln ('Это число не является цифрой')     else       case a of         0 : writeln ('ноль');         1 : writeln ('один');         2 : writeln ('два');         3 : writeln ('три');         4 : writeln ('четыре');       end;   readln; End.