viết chương trình nhập 1 xâu bất kì từ bàn phím hãy thay thế các kí tự P thành p

0 bình luận về “viết chương trình nhập 1 xâu bất kì từ bàn phím hãy thay thế các kí tự P thành p”

1. program thaythe;

   uses crt;

   var st:string;

   begin

   clrscr;

   write(‘Nhap xau: ‘);

   readln(st);

   while pos(‘P’,st)<>0 do

     begin

      insert(‘p’,st,pos(‘P’,st));

      delete(st,pos(‘P’,st),1);

     end;

   write(st);

   readln

   end.

   Bình luận

2. program thaythekytu;

   uses crt;

   var s:string;

   begin

   clrscr;

   write(‘Nhap xau: ‘);

   readln(s);

   while pos(‘P’,st)<>0 do

     begin

      insert(‘p’,s,pos(‘P’,s));

      delete(s,pos(‘P’,s),1);

     end;

   write(s);

   readln

   end.

   Bình luận