LQ

viết chương trình nhập vào xâu S. In ra màn hình xâu S1 là xâu đảo ngược của xâu S gồm các kí tự được in hoa

ML
16 tháng 3 2023 lúc 22:07

Program HOC24;

var s1,s2: string;

i: byte;

begin

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

s1:=''

for i:= length(s) downto 1 do

if s[i] in ['A'..'Z'] then s1:=s1+s[i];

write('Xau S1 : ',s1);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
TN
Xem chi tiết
NH
Xem chi tiết
NL
Xem chi tiết
NT
Xem chi tiết
NH
Xem chi tiết
LA
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết