Bài 12: Kiểu xâu

Mai

Viết hàm nhập vào một xâu ký tự, in ký tự cuối cùng ở mỗi xâu sau dấu cách trắng. vd : xin chào lớp 10A9 kết quả : n, o, p, 9

Minh Lệ
8 tháng 5 2023 lúc 18:22

Program HOC24;

var s: string;

i: byte;

begin

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

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while s[pos(#32#32,s)]=#32 do delete(s,pos(#32#32,s),1);

s:=s+#32;

for i:=1 to length(s) do if s[i]=#32 then write(s[i-1],' ');

readln

end.

for i:=1 to legnth(s) do

Bình luận (0)

Các câu hỏi tương tự
Ngô Chí Thành
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Coming Home
Xem chi tiết
Nguyễn Thị Yến Nhi
Xem chi tiết
nguyễn an phát
Xem chi tiết
LINH VU HA NGOC
Xem chi tiết
Coming Home
Xem chi tiết
Nguyễn Hoàng Nam
Xem chi tiết
luc lun
Xem chi tiết