Nhập xâu s từ bàn phím . Đếm số ký tự chữ “k’ có trong xâu s. Đưa kết quả ra màn hình. Nếu không có kí tự k thì đưa ra thông báo: KHONG CO.

dem:=0;

for i:=1 to n do if s[i]='k' then inc(dem);

if dem>0 then write('so chu k la',dem) else write('KHONG CO');

Nhập xuất tự làm

uses crt;
var s:string; i,d:longint; kt:boolean;
begin
clrscr;
   write('Nhap xau: '); readln(s);
   kt:=true;
   for i:=1 to length(s) do
      if s[i]='k' then 
         begin
            inc(d);
            kt:=true;
         end
      else kt:=false;
   if kt then writeln('Ket qua: ',d)
   else writeln('KHONG CO');
readln
end.