Question

[Thanh Nhi Phạm]

Viết chương trình nhập từ bàn phím xâu kí tự ST có độ dài không quá 100 và 1 kí tự CH .Hãy thông báo ra màng hình số lần xuất hiện kí tự CH có trong xâu ST

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var st:string;

i,d,dem:integer;

ch:char;

begin

clrscr;

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

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

d:=length(st);

dem:=0;

while pos(ch,st)>0 do 

  begin

inc(dem);

delete(st,pos(ch,st),1);

end;

writeln(dem);

readln;

end.