Nhập vào 1 xâu .Đưa ra màn hình số lượng ký tự khác nhau của xâu
1 câu trả lời
program xau;
uses crt;
var s: string;
d,i: byte;
st: set of char;
Begin
clrscr;
write('Nhap xau: '); readln(s);
st:=[]; d:=0;
for i:=1 to length(s) do if s[i] not in st then
begin
inc(d);
st:=st+[s[i]];
end;
write('Co ',d,' ky tu khac nhau cua xau');
readln
End.
