Nhập vào 2 xâu đưa ra xâu dài nhất, nếu 2 xâu bằng nhau thì đưa ra xâu thứ 2. Giúp mình với mình ko hiểu gì luôn viết chương trình ạ.

0 bình luận về “Nhập vào 2 xâu đưa ra xâu dài nhất, nếu 2 xâu bằng nhau thì đưa ra xâu thứ 2. Giúp mình với mình ko hiểu gì luôn viết chương trình ạ.”

1. program xau_dai;

   uses crt;

   var s1,s2:string;

   begin

           clrscr;

           write(‘Nhap xau thu nhat: ‘);  readln(s1);

           write(‘Nhap xau thu hai: ‘);  readln(s2);

           if length(s1)>length(s2) then write(s1)

                   else write(s2);

           readln;

   end.

   Bình luận

2. uses crt;
   var s1,s2:string;
   begin
      clrscr;
      write(‘Nhap xau thu nhat: ‘);readln(s1);
      write(‘Nhap xau thu hai: ‘);readln(s2);
      write(‘Xau dai hon: ‘);
      if length(s1)>length(s2) then write(s1) else write(s2);
   readln;
   end.

   Bình luận