Nhập Vào 1 xâu từ bàn phím và 1 kí tự bất kỳ đưa ra màn hình xâu thu được sau khibddax xoá kí tự bất kì trong xâu đã nhận Xâu ban đầu ‘Lop 11C7’ Nhập

0 bình luận về “Nhập Vào 1 xâu từ bàn phím và 1 kí tự bất kỳ đưa ra màn hình xâu thu được sau khibddax xoá kí tự bất kì trong xâu đã nhận Xâu ban đầu ‘Lop 11C7’ Nhập”

1. program xoa_kitu;

   uses crt;

   var s:string;

         k:char;

   begin

           clrscr;

           write(‘Nhap xau: ‘);  readln(S);

           write(‘Nhap ki tu: ‘);   readln(k);

           while pos(k,s)<>0 do

                   delete(s,pos(k,s),1);

           write(‘Xau khi xoa la: ‘,s);

           readln;

   end.

   Bình luận