Question

viet chuong trinh nhap vao 1 xau Sva 1 ki tu bat ki tu ban phim . kiem tra trong xau vua nhap co bao nhiweu ki tu vua nhap , xoa tat ca ki tu do trong xau S.

                          MONG MOI NGUOI GIUP DO ;

 

Answer 1

uses crt;

var s:string;

ktu:char;

i,d,dem:integer;

begin

clrscr;

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

write('Nhap ki tu:'); readln(ktu);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i]=ktu then inc(dem);

writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);

for i:=1 to d do 

 if s[i]=ktu then delete(s,i,1);

writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);

readln;

end.