Question

Cho tệp bài tập .txt chứa 1 xâu bất kì không quá 100 kí tự. viết chương trình đọc dữ liệu từ tệp bài tập.txt

Kiểm tra xem nếu là chữ số thì ghi ra màn hình, các kí tự còn lại ghi vào tệp.txt

Answer 1

Program HOC24;

const fi='baitap.txt';

fo='tep.txt';

var s: string[100];

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,s);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to length(s) do if not(s[i] in ['0'..'9']) then write(f,s[i]);

close(f);

end;

begin

ip;

for i:=1 to n do if s[i] in ['0'..'9'] then write(s[i]);

out;

readln

end.