Viết chương trình nhập vào 3 xâu S1, S2, S3 độ dài không quá 200 kí tự: - Thực hiện ghép 3 xâu, hiển thị kết quả sau khi ghép ra màn hình - Chèn sâu S1 và S3 tại vị trí thứ nhất, hiển thị kết quả sau khi chèn ra màn hình.
2 câu trả lời
uses crt;
var S1, S2, S3 : string[200];
begin
clrscr;
write('Nhap xau S1 = '); readln(S1);
write('Nhap xau S2 = '); readln(S2);
write('Nhap xau S3 = '); readln(S3);
writeln('Ghep xau = ', S1 + S2 + S3);
Insert(S1, S3, 1);
writeln('Chen xau S1 vao S3 = ', S3);
readln
end.
Program FNG;
Uses crt;
Var S1,S2,S3: String;
Begin
Clrscr;
Write('Nhap S1: '); Readln(S1);
Write('Nhap S2: '); Readln(S2);
Write('Nhap S3: '); Readln(S3);
Writeln('Ghep xau: ',Concat(S1,S2,S3));
Insert(S1,S3,1);
Writeln('Chen xau: ',S3);
Readln
End.
Câu hỏi trong lớp
Xem thêm
