nhập vào 2 xâu, xoá kí tự thứ 4. ghi xâu vừa xoá vào tệp KQ.TXT

0 bình luận về “nhập vào 2 xâu, xoá kí tự thứ 4. ghi xâu vừa xoá vào tệp KQ.TXT”

1. Const Fo=’KQ.OUT’;
   Var g: text;
       St: String;
   Begin
           Readln(St);
           Delete(St,4,1);
           Assign(g,Fo); Rewrite(g);
           Write(g,St);
           Close(g);
   End.

   —-

   Yêu moazzzz :*

   Mèo méo meo mèo meo ~

   Bình luận