Bài 12: Kiểu xâu

Hihi

Viết chương trình nhập vào 1 xâu và in ra xâu đó với các kí tự đều kí tự hoa

Nguyễn Lê Phước Thịnh
1 tháng 3 2023 lúc 8:14

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do

if st[i] in ['A'..'Z'] then write(st[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Tiên Tiên
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Long Nhi
Xem chi tiết
Hakai
Xem chi tiết
Nguyễn Vy
Xem chi tiết
dung nguyễn
Xem chi tiết
Duy Nguyễn
Xem chi tiết