Bài 12: Kiểu xâu

H24

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

NT
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ự
TT
Xem chi tiết
TP
Xem chi tiết
HD
Xem chi tiết
NC
Xem chi tiết
LN
Xem chi tiết
H24
Xem chi tiết
NV
Xem chi tiết
DN
Xem chi tiết
DN
Xem chi tiết