Bài 12: Kiểu xâu

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

viết chương trình đọc 1 xâu lí tự bất kì từ tệp dl.inp . hãy xoá kí tự đầu tiên và kí tự cuối cùng của xâu đó và ghi kết quả sau khi xoá vào tệp dl.out

Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

const fi='dl.inp'

fo='dl.out'

var f1,f2:text;

st:string;

i,d:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

for i:=2 to d-1 do 

  write(f2,st[i]);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
nguyen dao
Xem chi tiết
Nguyễn TRƯỜNG Giang
Xem chi tiết
Lan Anh
Xem chi tiết
B2_Đinh Thị Huệ
Xem chi tiết
no no
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Thiên Thiên
Xem chi tiết
Triệu Ngọc Phượng
Xem chi tiết
Phương Vũ Hà
Xem chi tiết