Какой оператор позволяет выбрать группу действий из произвольного числа имеющихся вариантов?

Какой оператор позволяет выбрать одну из двух альтернатив?

Дана программа:

program Day_Week;
var Day: byte;
begin
Write (`Введите номер дня недели (от 1 до 7) :`);
Readln (Day);
case Day of
1: Writeln (`Понедельник`);
2: Writeln (`Вторник`);
3: Writeln (`Среда`);
4: Writeln (`Четверг`);
5: Writeln (`Пятница`);
6: Writeln (`Суббота`);
else
Writeln (`Воскресенье`);
end;
end.
Укажите выражение-селектор оператора выбора

Дана программа, в которой не хватает строки. Напишите пропущенную строку.

program Day_Week;
var Day: byte;
begin
Write (`Введите номер дня недели (от 1 до 7) :`);
Readln (Day);
1: Writeln (`Понедельник`);
2: Writeln (`Вторник`);
3: Writeln (`Среда`);
4: Writeln (`Четверг`);
5: Writeln (`Пятница`);
6: Writeln (`Суббота`);
else
Writeln (`Воскресенье`);
end;
end.
Укажите первую строку блочного оператора выбора

К каким типам данных может относиться значение выражения-селектора?

При использовании оператора выбора case должны .выполняться следующие правила:

Какого типа селектор имеет приведенная форма записи оператора выбора:
case I of
1..10 : Writeln (`число `, I:4, ` в диапазоне 1 - 10`);
11..20 : Writeln (`число `, I:4, ` в диапазоне 11 - 20`);
21.. 30 : Writeln (`число `, 1:4, ` в диапазоне 21 - 30 `)
else Writeln (`число`, I:4, ` вне пределов контроля`)
end;

Какого типа селектор имеет приведенная форма записи оператора выбора:
case I of
1: Z := I + 10;
2: Z := I + 100;
3: Z := I + 1000
end;

Какого типа селектор имеет приведенная форма записи оператора выбора:
var
Season: (Winter, Spring, Summer, Autumn);
begin
…
case Season of
Winter : Writeln (`Winter`);
Spring : Writeln (`Spring`);
Summer : Writeln (`Summer`);
Autumn : Writeln (`Autumn`)
end;
end;

Дана программа, в которой не хватает строки. Напишите пропущенную строку.
program Cifra;
begin
Readln (Chis);
Case Chis of
0: Writeln(`Ноль`);
1,3,5,7,9: Writeln(`Нечетное`);
2,4,6,8: Writeln(`Четное`)
else
Writeln(`Не цифра`);
end;
end.

Дана программа. Каков будет результат на выходе, если ввести значение N=8?
Program razniza;
Var N: integer;
Begin
Write (`Введите число от 1 до 10 :`);
Readln (N);
Case N of
1, 2, 5: writeln (`a`);
7 .. 10: writeln (`b`);
end;
end.

Дана программа. Каков будет результат на выходе, если ввести значение N=3?
Program razniza;
Var N: integer;
Begin
Write (`Введите число от 1 до 10 :`);
Readln (N);
Case N of
1, 2, 5: writeln (`a`);
7 .. 10: writeln (`b`);
end;
end.