Question

Variabila A este introdusă prin declarația var A : set of char; Elaborați o funcție care returnează numărul de caractere din mulțimea A

Answer 1

function count(a:set of char):integer;
var
  s:integer;
  i:char;
begin
  s:=0;
  for i:=chr(0) to chr(255) do
    if i in a then s:=s+1;
  count:=s;
end;