Viết chương trình nhập 1 xâu có độ dài 27. Sau đó xóa 10 kí tự của xâu vừa nhập bắt đầu từ vị trí số 4 rồi in kết quả ra màn hình
2 câu trả lời
uses crt;
var s:string;
begin
clrscr;
write('Nhap vao xau co do dai 27: ');readln(s);
delete(s,4,10);
writeln('Ket qua: ',s);
readln
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
readln;
end.
đây ạ
chúc bạn học tốt
nếu hay cho mik 5 sao và 1 tim câu trả lời hay nhất
Câu hỏi trong lớp
Xem thêm
