Pascal - nhập từ bàn phím một xâu S và kí tự k đếm số lần xuất hiện của k trong xâu

Để giải bài toán này trước hết chúng ta cần xác định bài toán:

• INPUT: Xâu S từ bàn phím và kí tự k từ bàn phím
• OUTPUT: Số lần xuất hiện của k trong xâu S

Chú ý: Bài toán yêu cầu nhập kí tự k

Bài toán này được giải như sau:

program codevodoi;
uses crt;
var S:string;
	k:string[1];
	i,dem:byte;
begin
	write('Nhap xau S: ');
	readln(S);
	write('Nhap ki tu k: ');
	readln(k);
	for i:=1 to length(S) do
		if S[i] = k then dem:=dem+1;
	write('So lan xuat hien cua k la: ',dem);
	readln
end.