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
2 câu trả lời
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.
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.
