Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hương Giang Bùi

Viết đoạn chương trình chuyển xâu 'Xin chao!' thành 'XINCHAO!'

Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:40

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

st:='Xin chao!'

d:=length(st);

for i:=1 to d do

  st[i]:=upcase(st[i]);

writeln(st);

readln;

end.


Các câu hỏi tương tự
Huy Lý
Xem chi tiết
Nguyễn Tín
Xem chi tiết
Huyền Trang
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
Đoàn Minh Trí
Xem chi tiết
Ngọc Đối Gaming
Xem chi tiết