Viết CT nhập 2 xâu , thực hiện chèn xâu s1 vào xâu s2 . In xâu ban đầu và xâu mới tạo ra màn hình

0 bình luận về “Viết CT nhập 2 xâu , thực hiện chèn xâu s1 vào xâu s2 . In xâu ban đầu và xâu mới tạo ra màn hình”

1. Uses crt;

   Var s1,s2:string;

   Begin

   clrscr;

   writeln(‘Nhap xau s1:’);readln(s1);

   Writeln(‘Nhap xau s2:’);readln(s2);

   Writeln(‘Xau ban dau:’);

   Writeln(‘S1 : ‘,s1);

   Writeln(‘S2 : ‘,s2);

   s2:=s1+s2;

   Writeln(‘Xau moi: ‘ ,s2);

   readln;

   end.

   Bình luận

2. Var s1, s2:string;

   Begin

       writeln(‘Nhap xau s1: ‘); readln(s1);

       Writeln(‘Nhap xau s2: ‘); readln(s2);

       Writeln(‘Xau ban dau:’);

       Writeln(‘S1 : ‘,s1);

       Writeln(‘S2 : ‘,s2);

       Writeln(‘Xau moi: ‘, s1+s2);

       readln

   end.

    

    

   Bình luận