паскаль абс оператор саsе
Ввести с клавиатуры букву 7-го класса. Определить его тип:
а - гимназический, б - математический, в - обычный, г - коррекция.
(Буква может быть большой или маленькой).

Вот компиляция для Линукс: Compiler Output:EFuw4sE5.pas:0: warning: missing program headerEFuw4sE5.pas:2: warning: missing string capacity -- assuming 255EFuw4sE5.pas: In main program:EFuw4sE5.pas:6: error: `case' selector is not of ordinal type

Проверено через сайт с тремя десятками разных компиляторов.

Думаю, основная проблема не в системе, а в версии.Можно в ЛС ссылку на этот сайт с тремя десятками компиляторов?

То, что лично у Вас на компьютере это откомпилировалось не может являться основанием того, чтобы ответ признавать работоспособным.

Проблема в синтаксисе языка. Еще раз: если в селекторе CASE используются буквы, они должны быть допустимы в Паскале в качестве меток.

В теме задания четко указано, что решение необходимо проводить через оператор case.

Да... я увлекся и был неправ. Исправим...

var    letterOfClass : string;begin    write('Введите букву класса: ');    readln(letterOfClass);    case letterOfClass of        'a','A' : writeln('7-', letterOfClass, ' это гимназический класс.');        'b','B' : writeln('7-', letterOfClass, ' это математический класс.');        'v','V' : writeln('7-', letterOfClass, ' это обычный класс.');        'g','G' : writeln('7-', letterOfClass, ' это клас корреции.');        else writeln('Класса с такой буквой нет');    end;end.

// PascalABC.Net 3.0, сборка 1066const  s1='АБВГабвг';  s2='12341234';var  c:char;  i:integer;begin  Write('Введите букву класса: '); Readln(c);  i:=Pos(c,s1);  if i>0 then begin    c:=s2[i];    case c of    '1':Writeln('гимназический');    '2':Writeln('математический');    '3':Writeln('обычный');    '4':Writeln('коррекционный')    end  end  else Writeln('Неверная буква')end.Тестовое решение:Введите букву класса: БматематическийПримечание: работа программы также проверена в Borland Pascal 7.01