Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó

0 bình luận về “Nhập vào hai chuỗi a,b.Chuỗi nào có nhiều kí tự chữ cái hơn thì in ra màn hình chuỗi đó”

1. uses crt;
   var a,b:string;
   begin
          clrscr;
          write(‘Nhap xau a: ‘); readln(a);
          write(‘Nhap xau b: ‘); readln(b);
          writeln(‘So ky tu o xau a: ‘,length(a));
          writeln(‘So ky tu o xau b: ‘,length(b));
          if length(a)>length(b) then write(‘Xau co ky tu nhieu hon la xau a’)
          else write(‘Xau co ky tu nhieu hon la xau b’);
          readln;
   end.

   Bình luận

2. *So sánh 2 chuỗi

   program chuoi;

   uses crt;

   var a,b:string;

   begin

         clrscr;

         write(‘Nhap chuoi a: ‘);  readln(a);

         write(‘Nhap chuoi b: ‘);  readln(b);

         if length(a)>length(b) then write(a) 

               else if length(a)<length(b) then write(b)

               else write(‘Hai chuoi bang nhau’);

         readln;

   end.

   *So sánh chữ cái của 2 chuỗi

   program chuoi_chu_cai;

   uses crt;

   var a,b,ca,cb:string;

         i:byte;

   begin

         clrscr;

         write(‘Nhap chuoi a: ‘);  readln(a);

         write(‘Nhap chuoi b: ‘);  readln(b);

         ca:=”;  

         for i:=1 to length(a) do

              if (a[i] in [‘a’..’z’]) or (a[i] in [‘A’..’Z’]) then ca:=ca+a[i];

         cb:=”;  

         for i:=1 to length(b) do

              if (b[i] in [‘a’..’z’]) or (b[i] in [‘A’..’Z’]) then cb:=cb+b[i];

         if length(ca)>length(cb) then write(a) 

               else if length(a)<length(b) then write(b)

               else write(‘Hai chuoi co so luong chu cai bang nhau’);

         readln;

   end.

   Bình luận