Question

Viết chương trình nhập vào một xâu chuẩn bất kỳ ký tự thường sau đó hãy xóa hết các ký tự đặc biệt có trong xâu chỉ chứa lại các ký tự từ A đến Z và từ 0 đến 9 và khoảng cách rồi đưa kết quả lên dulieu.txt Giúp e vs ạ

Answer 1

uses crt;

const fi='dulieu.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

d:=length(st);

for i:=1 to d do 

if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);

close(f1);

end.