viết chương trình nhập 1 xâu dưới họ tên bất kì. đưa ra màn hình xâu họ tên đã được chuyển hóa( xóa dấu cách thừa, chuyển chữ cái đầu thành chữ hoa

1 câu trả lời

var s:string;

     i:longint;

begin

read(s);

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

while pos(#32#32,s) do delete(s,pos(#32#32,s),1);

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

for i:=1 to n do

if s[i]=#32 then s[i+1]=upcase(s[i+1]);

write(s);

readln;

end.

Câu hỏi trong lớp Xem thêm