viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình sau kí tự sau khi đã thay tất cả từ ‘nắng’ thành từ ‘mua’ GIAI NHANH GIUP MINH N

0 bình luận về “viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình sau kí tự sau khi đã thay tất cả từ ‘nắng’ thành từ ‘mua’ GIAI NHANH GIUP MINH N”

1. program thay_doi;

   uses crt;

   var s:string;

   begin

          clrscr;

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

          while pos(‘nang’,s)<>0 do

                 begin

                        insert(‘mua’,s,pos(‘nang’,s));

                        delete(s,pos(‘nang’,s),4);

                 end;

          write(‘Xau sau khi thay doi la: ‘,s);

          readln;

   end.

   Bình luận

2. Uses crt;

   var s:string;

   begin

          clrscr;

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

          while pos(‘nang’,s)<>0 do

                 begin

                        insert(‘mua’, s, pos(‘nang’,s));

                        delete(s, pos(‘nang’,s), 4);

                 end;

          write(s);

          readln

   end.

    

    

   Bình luận