Bài 12: Kiểu xâu

HT

Viết chương trình đưa ra xâu S với các ký tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa

NT
16 tháng 3 2021 lúc 23:26

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

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

writeln(s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NT
Xem chi tiết
KM
Xem chi tiết
KM
Xem chi tiết
TP
Xem chi tiết
HD
Xem chi tiết
VH
Xem chi tiết
NL
Xem chi tiết
NL
Xem chi tiết
MN
Xem chi tiết