Viết chương trình nhập vào xâu ký tự đếm xem trong xâu có bao nhiêu ký tự khác nhau

0 bình luận về “Viết chương trình nhập vào xâu ký tự đếm xem trong xâu có bao nhiêu ký tự khác nhau”

1. program ct;

   uses crt;

   var i,j,dem:integer;

   t:boolean;

   s:string;

   begin

   clrscr;

   write(‘nhap xau:’);readln(s);

   dem:=0;

   for i:=1 to length(s) do

   begin

   t:=fales;

   for j:=1 to i-1 do

   if ((s[i])=(s[j])) then t:=trus;

   if not(t) then inc (dem);

   end;

   write(‘co’,dem,’ki tu khac nhau’);

   readln

   end;

   end.

   Bình luận

2. uses crt;
   var i,j,dem:integer;
       t:boolean;
       s:string;
   begin
      clrscr;
      write(‘Nhap xau: ‘);readln(s);
      dem:=0;
      for i:=1 to length(s) do
      begin
         t:=false;
         for j:=1 to i-1 do
         if ((s[i])=(s[j])) then t:=true;
         if not(t) then inc (dem);
      end;
      write(‘Co ‘,dem,’ ki tu khac nhau’);
      readln
   end.

   Bình luận