Bài 12: Kiểu xâu

LA

viết chương trình nhập 1 xâu bất kì từ bàn phím ,đưa ra màn hình xâu sau khi xoá n kí tự từ vị trí bất kì

NT
18 tháng 3 2021 lúc 12:43

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NG
Xem chi tiết
BH
Xem chi tiết
PN
Xem chi tiết
NH
Xem chi tiết
TT
Xem chi tiết
NT
Xem chi tiết
TT
Xem chi tiết
DN
Xem chi tiết
BL
Xem chi tiết