Nhập vào 1 xâu. Đưa ra màn hình xâu dài nhất nếu 2 xâu bằng nhau thì đưa ra xâu ghép đó của 2 xâu

0 bình luận về “Nhập vào 1 xâu. Đưa ra màn hình xâu dài nhất nếu 2 xâu bằng nhau thì đưa ra xâu ghép đó của 2 xâu”

1. var a, b: string;

   Begin

         Write(‘nhap xau a: ‘); readln(a);

         Write(‘nhap xau b: ‘); readln(b);

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

         Else if length(a)=length(b)

                  Then write(a, b)

         Else write(b);

         Readln

   End.

   Bình luận

2. 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+s2)

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

          readln;

   end.

   Bình luận