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.