Bài 3: Viết chương trình nhập vào từ bàn phím họ tên hai người. Đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau. Bài 4: Viết chương

0 bình luận về “Bài 3: Viết chương trình nhập vào từ bàn phím họ tên hai người. Đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau. Bài 4: Viết chương”

1. Bài 3:

   var s1,s2:string;
   begin
      write(‘Nhap ho ten nguoi thu nhat: ‘); readln(s1);
      write(‘Nhap ho ten nguoi thu hai: ‘); readln(s2);
      if s1>s2 then write(s1) else 
      if s1=s2 then write(s2) else write(s2);
      readln
   end.

   Bài 4: 

   var i:byte;
       a,b:string;
   begin
      write(‘Nhap xau: ‘); readln(a);
      b:=”;
      for i:=1 to length(a) do
      if a[i]<>’ ‘ then b:=b+a[i];
      write(‘Ket qua la: ‘,b);
      readln
   end.

   Bình luận