viết chương trình nhập vào từ bàn phím xâu kí tự S và ký tự k . Hãy đến và đưa ra màn hình số kí tự k có trong xâu S

0 bình luận về “viết chương trình nhập vào từ bàn phím xâu kí tự S và ký tự k . Hãy đến và đưa ra màn hình số kí tự k có trong xâu S”

1. Program HOI DAP 24

   var s: string;

   i,d: byte;

   begin

   write(‘Nhap xau: ‘); readln(s);

   d:=0;

   for i:=1 to length(s) do if (s[i]=’b’) or (s[i]=’B’) then d:=d+1;

   write(‘Co ‘,d,’ ki tu B trong xau’);

   readln

   end.

   Bình luận

2. var k: char;

         s: string;

         i, d: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       Write(‘nhap ki tu k: ‘); readln(k);

       D:=0;

       For i:=1 to length(s) do

           If s[i]=k then inc(d);

       Write(‘co ‘, d, ‘ ki tu ‘, k);

       Readln

   End.

   Bình luận