Viết chương trình nhập vào từ bàn phím xâu kí tự S1 tạo xâu S2 gồm tất cả các chữ cái có trong xâu S1 giữ nguyên thứ tự xuất hiện của chúng và đưa ra kết quả màn hình kết hợp thao tác với tệp
Viết chương trình nhập vào từ bàn phím xâu kí tự S1 tạo xâu S2 gồm tất cả các chữ cái có trong xâu S1 giữ nguyên thứ tự xuất hiện của chúng và đưa ra kết quả màn hình kết hợp thao tác với tệp
Const Fi=’Xau.INP’;
Fo=’Xau.OUT’;
Var f,g: text;
S1,S2: String;
i: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,S1);
S2:=”;
For i:=1 to length(S1) do
If (S1[i] in [‘A’..’Z’]) or (S1[i] in [‘a’..’z’]) then S2:=S2+S1[i];
Write(g,’S2 = ‘,S2);
Close(f);
Close(g);
End.