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ế
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.
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.