Bài 12: Kiểu xâu

MK

Hãy viết chương trình:

Chuyển chuỗi nhập từ bàn phím thành 1 chuỗi toàn là chữ viết hoa

Nhập chuỗi abCD

Kết quả: ABCD

NT
27 tháng 4 2020 lúc 21:30

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap chuoi:');readln(st);

d:=length(st);

for i:=1 to d do

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

for i:=1 to d do write(st[i]);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
MK
Xem chi tiết
HA
Xem chi tiết
NT
Xem chi tiết
BH
Xem chi tiết
KM
Xem chi tiết
NA
Xem chi tiết
NG
Xem chi tiết
HT
Xem chi tiết
H24
Xem chi tiết