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 ko có kí tự k thì đưa ra thông báo KHONG CO Giúp mk vs nhé :))T

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 ko có kí tự k thì đưa ra thông báo KHONG CO Giúp mk vs nhé :))T”

1. uses crt;
   var s:string; i,d:longint;
   begin
   clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do 
         if s[i]=’k’ then inc(d);
      if d<>0 then writeln(‘Ket qua: ‘,d) else writeln(‘KHONG CO’);
   readln
   end.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,k:integer;

         s:string;

   begin

   writeln(‘Nhap xau S:’)readln(s);

   k:=0;

   for i: = 1 to length(s) do if s[i] in [‘0’..’9′] then inc(k);

   if k = 0 then writeln(‘KHONG CO’) else writeln(‘Co ‘,k,’ ki tu chu k co trong xau’);

   readln;

   end.

   Bình luận