Cau 43
var A:string;
i:byte;
begin
write(' Nhap ho va ten: '); read(A);
write(' Do dai xau ho ten la: ', length(A));
for i:=1 to length(A) do
if A[i] = ' ' then delete(A;i;1);
writeln(' Xau ho ten sau khi luoc bo khoang trang la:' ,A);
writeln(' Do dai cua xau ho ten sau khi xu ly la : ' , length(A));
readln
end;
Cau 44
var A,B,C :string;
i :byte;
begin
write(' Nhap ho va ten thu nhat: '); read(A);
write(' Nhap ho va ten thu hai : '); read(B);
write(' Do dai xau ho ten 1 la: ', length(A));
C:= ''; {Khoi tao xau rong};
for i:=1 to length(A) do
C:= C+ B[i];
writeln(' Xau ho ten 2 sau khi dao nguoc lai la:' ,C);
readln
end;
