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
2 câu trả lời
Có sai thì nói để mình sửa nhé.
=====================
program Hello;
uses crt;
var st, ch:string;
dem, i: byte;
begin
write('ST: ');
readln(st);
write('CH: ');
readln(ch);
for i:= 1 to length(st) do
if st[i] = ch then
dem:= dem + 1;
writeln('So lan xuat hien cua ', ch, ' la: ', dem, ' lan');
readln;
end.
program bai_giai;
uses crt;
var st:string;
ch:char;
i,d:byte;
begin
clrscr;
write('Nhap xau ST: '); readln(st);
write('Nhap ki tu CH: '); readln(ch);
d:=0;
for i:=1 to length(st) do
if st[i]=ch then d:=d+1;
write('Ki tu ',ch,' xuat hien ',d,' lan');
readln;
end.
