Bài 12: Kiểu xâu

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

Viết chương trình nhập vào xâu bất kì từ bàn phím. Sau đó in ra màn hình xâu đảo ngược và đã loại bỏ dấu cách trong xâu.

Nguyễn Lê Phước Thịnh
19 tháng 4 2020 lúc 10:45

uses crt;
var st,st1:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
st1:='';
for i:=d downto 1 do
st1:=st1+st[i];
for i:=1 to d do
if st1[i]<>' 'then write(st1[i]);
readln;
end.


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Quang Tuấn Quách
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Tiên Tiên
Xem chi tiết
Lan Anh
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
Nguyễn TRƯỜNG Giang
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
phuoc
Xem chi tiết
Anh Thư
Xem chi tiết