01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Строки / Задача 8 (функция - количество различных букв в строке)

8) Написать функцию, которая определяет, сколько различных (именно различных:) букв есть в строке. Разработать эту функцию для N строк.


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mn=set of char;

function CHISLO (var s:string;n:integer):integer;
var i,kol:integer;
M:mn;
begin
writeln('Vvedite stroku');
readln(s);

M:=['A'..'Z'];
kol:=0;
for i:=1 to length(s) do if upcase(s[i]) in M then begin
kol:=kol+1;
M:=M-[upcase(s[i])];
end;
CHISLO:=kol;
end;

var n,i,kol:integer;
st:string;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for i:=1 to n do begin
kol:=CHISLO(st,n);
writeln('kol-vo razlichnix bukz v stroke ',kol);
end;
readln;
end.