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

0 bình luận về “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. 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.

   Bình luận