Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6

Chương trình đơn giản

NN

Viết chương trình đổi tất cả các ký tự trong xâu nhập vào thành chữ in hoa.

NT
13 tháng 4 2020 lúc 11:30

uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); 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ự
NT
Xem chi tiết
H24
Xem chi tiết
HT
Xem chi tiết
HP
Xem chi tiết
TT
Xem chi tiết
AP
Xem chi tiết
HL
Xem chi tiết
NA
Xem chi tiết
AT
Xem chi tiết