Viết chương trình nhập 2 xâu từ bàn phím và đưa ra màn hình xâu ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập trước Mn giúp em với ạ! Hứa vote 5 sao ạ

0 bình luận về “Viết chương trình nhập 2 xâu từ bàn phím và đưa ra màn hình xâu ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập trước Mn giúp em với ạ! Hứa vote 5 sao ạ”

1. PROGRAM SO_SANH;

   VAR s1, s2: string;

   BEGIN

   Writeln(‘Nhap vao xau thu nhat:’); Readln(s1);

   Writeln(‘Nhap vao xau thu nhat:’); Readln(s2);

   If length(s1) < length(s2) then Write(‘Xau ngan hon la:’,s1)

                                             Else Write(‘Xau ngan hon la:’,s2);

   Readln

   END.

   Bình luận

2. uses crt;

   var s1,s2:string;

   begin

   clrscr;

   readln(s1);

   readln(s2);

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

   readln

   end.

   Bình luận