Question

Pascal: Есть набор цветов:'red', 'orange', 'yellow', 'green', 'blue', 'magenta'. С клавиатуры вводится цвет. Определить его порядковый номер в этом множестве.

Answer 1

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var Color:array of string:=('red','orange','yellow','green','blue','magenta');
  var MyColor:=ReadlnString('Введите цвет:').ToLower;
  var i:=Color.IndexOf(MyColor);
  if i<0 then Writeln('Неверный цвет')
  else Writeln('Номер цвета равен ',i+1)
end.

Пример
Введите цвет: Green
Номер цвета равен 4