Question

Viết một chương trình: nhập 1 xâu ký tự bất kỳ và thực hiện xử lý xâu vừa nhập với các yêu cầu dưới đây

a. Hiển thị xâu vừa nhập cùng với độ dài của xâu đó?

b. Xóa các ký tự trắng dư thừa có trong xâu? (Mỗi từ chỉ cách nhau 1 ký tự trống, ở đầu và cuối xâu không chứa ký tự trống)

c. Biến đổi xâu thành xâu in hoa?

d. Biến đổi xâu thành xâu in thường?
giúp vs ạ
làm tách riêng từng phần đc ko ạ

Answer 1

Program hotrotinhoc;

var st,s: string;

i,n: integer;

begin

write('Nhap xau : '); readln(st);

//-----------Cau-a-----

writeln('Xau vua nhap la : ',st);

s:=st;

writeln('Do dai cua xau la : ',length(st));

//----------Cau-b------

while st[1]=#32 do delete(st,1,1);

while st[length(st)]=#32 do delete(st,length(st),1);

while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1);

writeln('Xau sau khi xoa cac ky tu trang : ',st);

//------------Cau-c--------

s:=upcase(s);

writeln('Xau sau khi bien doi thanh xau in hoa : ',s);

//-----------Cau-d----------

s:=lowercase(s);

write('Xau sau khi bien doi thanh xau in thuong : ',s);

readln

end.