Viết chương trình nhập vào xâu kí tự đưa ra xâu kí tự với chữ hoa đầu mỗi chữ( Tin 11-Pascal) (Chẳng hạn như là : Học Sinh Trường Trung Học Phổ Thông)

Fairyquynh313

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

thuyngaxk

program viethoa;

uses crt;

var st:string;

i:byte;

begin

clrscr;

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

if not(st[1] in ['A'..'Z']) then st[1]:=upcase(st[1]);

for i:=2 to length(st) do

if not(st[i] in ['A'..'Z]) and (st[i-1]=#32) and (st[i]<>#32) then st[i]:=upcase(st[i]);

write('Xau moi la: ',st);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Duy2007

uses crt;
var i:integer;
s:string;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
s[1]:=upcase(s[1]);
for i:=2 to length(s)-1 do
if s[i]=' ' then s[i+1]:=upcase(s[i+1]);
write(s);
readln
END.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

tìm x, y thuộc z biết ( x-1) ( y-3) = 7

Cho Hình Thang Vuông ABCD Có Đáy Nhỏ=6cm, Đáy Lớn=10cm và góc nhọn bằng 45 độ. Tính Diện Tích Hình Thang Vuông ABCD Giúp Mk Vs mk Vote 5 sao

Nêu 2 cách giảm ô nhiễm âm thanh bằng tiếng anh Nêu 3 cách giảm ô nhiễm nước bằng tiếng anh

giải giúp e bài này với ạ thanks nhiều ạ <3

Tìm x, biết: 3n+4 chia hết cho 2n+1

Cứu em với mn ơi (Cần gấp, chiều em đi học rồi) Hứa rate 5* ạ

Ai giải hộ em với..nhanh nha. Vote 5 sao luôn

Giải cho em phần bài tập với ạ em cẩm ơn

quên học bài cô kêu ghi 1 tờ giấy hứa học kì 2 sẽ học bài bla bla ghia sao cho hayy ? :<

Giải giúp em phần bài tập về nhà với ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến