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 bằng chữ in 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