Помогите!!! переменная А вводится с помощью описания : var A:set of char;
напишите функцию, которая возвращает количество символов в множестве А.(МОЖНО ИСПОЛЬЗОВАТЬ STRING!!!)

type A = set of char;function MA(x:A):integer;var i,n: integer;begin for i:=0 to 255 do if chr(i) in x then n:=n+1; MA:=nend;var m:A;begin m :=('П', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2'); Writeln('Количество символов в множестве- ',MA(m));end.Я не много видоизменил программу... но почему в этом случаи программа не идет???

А Вы не моли бы указать конкретнее, что подразумевается под Вашим "не идёт"?

Я при беглом осмотре не увидел изменений, кроме как замены одних букв другими

нет, все хорошо, огромное вам спасибо

вы бы мне не смогли кратко ее объяснить, в пару предложениях, мы не делали подобного... только если Вам не сложно