Viết phương trình a, Nhập vào từ bàn phím 2 xâu a,b(chứa các chữ thường) và thông báo ra màn hình tổng độ dài 2 xâu. b, tạo xâu c gồm các chữ cái từ xâu a và xâu b. Đưa xâu c ra màn hình.
2 câu trả lời
uses crt;
var a,b,c: string;
begin
clrscr;
write ('A= '); readln (a);
write ('B= '); readln (b);
c:=a+b;
writeln ('Xau A dai: ',length(a));
writeln ('Xau B dai: ',length(b));
writeln ('C=: ',c);
readln;
end.
uses crt;
var a,b,c: string;
begin
clrscr;
write ('nhap xau a: '); readln (a);
write ('nhap xau b: '); readln (b);
writeln ('do dai xau A: ',length(a));
writeln ('do dai xau B: ',length(b));
c:=a+b;
writeln ('xau C la: ',c);
readln;
end.
