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.

0 bình luận về “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.”

1. 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

   Bình luận

2. 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.

   Bình luận