Viết chương trình nhập vào họ tên của một người. Sau đó in chuỗi họ tên ra màn hình với các ký tự đầu đổi thành chữ hoa, toàn bộ chuỗi họ và tên đổi thành chữ hoa.
Quảng cáo
1 câu trả lời 209
Program DOI_CHUOI_CHU_HOA;
Uses Crt;
Var i:integer;st:string;
Begin
Clrscr;
Writeln('DOI CHUOI SANG CHUOI HOA');
Writeln('--------------------------------------');
Write('Nhap ho ten:');readln(st);
st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=' ' then st[i+1]:=upcase(st[i+1]);
Writeln('Ho ten sau khi doi lan 1 la: ',st);
For i:=1 to length(St) do
st[i]:=upcase(st[i]);
Writeln('Ho ten sau khi doi lan 2 la: ',st);
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149326 -
Đã trả lời bởi chuyên gia
99746 -
Đã trả lời bởi chuyên gia
97358 -
Đã trả lời bởi chuyên gia
80026 -
Đã trả lời bởi chuyên gia
72871 -
Đã trả lời bởi chuyên gia
55955 -
Đã trả lời bởi chuyên gia
55330
