Question

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.

Answer 1

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.