Bài 1: Cho trước xâu kí tự s có độ dài n chỉ chứa các chữ cái tiếng Anh.
Yêu cầu: Kiểm tra trong xâu s có kí tự k bất kì theo yêu cầu sẽ xóa toàn bộ kí
tự đó, thông báo các vị trí đã xóa kí tự k.
Dữ liệu: Vào từ tệp văn bản Cau3.INP
- Dòng 1 chứa xâu s gồm n kí tự là các chữ cái tiếng Anh
- Dòng 2 chứa kí tự k bất kì cần xóa theo yêu...
Đọc tiếp
Bài 1: Cho trước xâu kí tự s có độ dài n chỉ chứa các chữ cái tiếng Anh.
Yêu cầu: Kiểm tra trong xâu s có kí tự k bất kì theo yêu cầu sẽ xóa toàn bộ kí
tự đó, thông báo các vị trí đã xóa kí tự k.
Dữ liệu: Vào từ tệp văn bản Cau3.INP
- Dòng 1 chứa xâu s gồm n kí tự là các chữ cái tiếng Anh
- Dòng 2 chứa kí tự k bất kì cần xóa theo yêu cầu.
Program HOC24;
const fi='Cau3.INP';
var f: text;
k: char;
s: string;
i: byte;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,s);
read(f,k);
close(f);
end;
begin
ip;
for i:=1 to length(s) do if s[i]=k then write(i,' ');
readln
end.
rất l bạn nhưng nó bị dính exit code2
và mik đã ra trên mạng nhưng làm theo thì không chạy đ chương trình