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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nin nguyễn

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.

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
Nguyễn Thị Tươi
Xem chi tiết
Trang
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
Hà Phương
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Anh Phạm
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Nam Phạm An
Xem chi tiết
Anh Thư
Xem chi tiết