Определить является ли множество {'T','h','j','k'} его подмножеством.
Алгоритм: 1. Вводим 1-е множество с клавиатуры (я представляю себе что это может быть либо массив либо строка)
2. Сравниваем 1-е и 2-е относительно условия.
Вот что у меня получилось ->
Код
Program qwerty;
uses CRT;
const
N=4;
type
SetChar=set of char;
var
mn2:SetChar=['T','h','j','k'];
a:string;
i,YES,NO:integer;
BEGIN
Begin
ClrScr;
end;
readln(a);
FOR i:=0 to N do
if (A[i]>=mn2) then Inc(YES)
else Inc(NO);
if YES=4 then writeln('-OK-');
if NO=4 then writeln('-NO-');
readln;
end.
uses CRT;
const
N=4;
type
SetChar=set of char;
var
mn2:SetChar=['T','h','j','k'];
a:string;
i,YES,NO:integer;
BEGIN
Begin
ClrScr;
end;
readln(a);
FOR i:=0 to N do
if (A[i]>=mn2) then Inc(YES)
else Inc(NO);
if YES=4 then writeln('-OK-');
if NO=4 then writeln('-NO-');
readln;
end.
При компилировании выдает @Error 26:type mismatch@ на месте
Код
if (A[i]>=mn2)
Просьба помочь разобраться, почему идет несовместимоть типов????, ведь например, если я
Код
if (A[i]>=mn2)
заменю на Код
if (A[i] in mn2)
, то все работает. Таже проблема возникает если переменную "а" обьявляю как массив. Может я чего-то не допонимаю 
)
