Viết chương trình nhập vào 1 xâu tối đa 30 ký tự. Hãy cho biết có bao nhiêu ký tự trong xâu là ký tự ‘N’ và thay thế ký tự đó thành dấu ‘*’ và in ra màn hình xâu vừa thay thế Hướng dẫn: Khởi tạo biến đếm =0 Kiểm tra từng ký tự của xâu có bằng N không nếu bằng thì tăng biến đếm lên 1 đơn vị, thay thế N bằng ký tự * à Dùng thủ tục Delete và Insert để thay thế

uses crt;
var s:string[30];i:longint;
begin
   clrscr;
   write('Nhap xau: '); read(s);
   for i:=1 to length(s) do 
      if s[i]='N' then 
         begin
            delete(s,i,1);
            insert('*',s,i);
         end;
   writeln('Xau vua thay the: ',s);
   readln
end.

program cai_gi_do;
uses crt;
var s:string[30];
i:byte;
begin
 clrscr;
 readln(s);
 for i:=1 to length(s) do
 begin
  if(s[i]='N') then begin delete(s,i,1); insert('*',s,i); end; //xoá 1 ký tự tại vị trí i và thêm ký tự * vào vị trí i
 end;
 writeln(s);
 readln(s);
end.