Question

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ế

Giúp em với ạ!!!!!!

Answer 1

uses crt;
var st:string[30];
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='N' then
begin
inc(dem);
st[i]:='*'
end;
writeln('so ky tu N trong xau la: ',dem);
writeln('xau thay the la: ');
for i:=1 to d do
write(st[i]);
readln;
end.