Hãy viết chương trình: Nhập vào 1 xâu kí tự và kiểm tra số lần 1 kí tự t bất kì xuất hiện trong xâu vừa nhập Nhập xâu: Covid Kí tự kiểm tra: o Kết quả

0 bình luận về “Hãy viết chương trình: Nhập vào 1 xâu kí tự và kiểm tra số lần 1 kí tự t bất kì xuất hiện trong xâu vừa nhập Nhập xâu: Covid Kí tự kiểm tra: o Kết quả”

1. uses crt;
   var str:string;
       t:char;
       i,d:byte;
   begin
   clrscr;
       readln(str);
       readln(t);
       for i:=1 to length(str) do
           if str[i]=t then inc(d);
       write(d);
   readln;
   end.

   Bình luận

2. program giup;
   uses crt;
   var s:String;
       t:char;
       i,dem:integer;
   begin
   dem:=0;
   write(‘nhap xau: ‘); readln(s);
   write(‘ki tu kiem tra: ‘); readln(t);
     for i:=1 to length(s) do
      if s[i]=t then dem:=dem+1;
   write(‘ket qua: ‘,dem);
     readln;
   end.

   Bình luận