Viết chương trình nhập vào xâu bất kì. Tìm vị trí xuất hiện đầu tiên của kí tự a và thực hiện xóa 3 kí tự tại vị trí đó. In xâu thu được sau khi xóa r

0 bình luận về “Viết chương trình nhập vào xâu bất kì. Tìm vị trí xuất hiện đầu tiên của kí tự a và thực hiện xóa 3 kí tự tại vị trí đó. In xâu thu được sau khi xóa r”

1. uses crt;
   var s:string;
       i:integer;
   begin
      clrscr;
      writeln(‘Nhap xau s: ‘); readln(s);
      i:=pos(‘a’,s); 
      delete(s,i,3);
      write(s);
      readln
   end.

   Bình luận