Bài 1 : Viết chương trình nhập vào một xâu bất kì, nhập vào kí tự k bất ki. Hãy đếm xem trong xâu đó có bao nhiêu kí tự bằng kí tự k. In kết quả ra màn hình Bài 2 : Viết chương trình nhập vào hai xâu bất kì, hãy kiểm tra xem kí tự thứ hai của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không. In kết quả ra màn hình Bài 3 : Viết chương trình nhập vào một xâu bất kì hãy đếm xem trong xâu đó có bao nhiêu từ ( biết rằng mỗi từ sẽ được viết cách nhau một dấu space )

Bài 1:

#include<bits/stdc++.h>
using namespace std;
int main()
{
    string s;
    char k;
    int samon247;
    cin>>s>>k;
    for(int i=0;i<s.length();i++){
        if(s[i]==k){
            samon247++;
        }
    }
    cout<<samon247;
    return 0;
}

Bài 2:

#include<bits/stdc++.h>
using namespace std;
int main()
{
    string samon247,t;
    cin>>samon247>>t;
    if(samon247[1]==t[t.length()-1]){
        cout<<"Trung";
        return 0;
    }
    cout<<"Khong trung";
    return 0;
}

Bài 3:

#include<bits/stdc++.h>
using namespace std;
int main()
{
    string samon247;
    int a=1;
    getline(cin,samon247);
    for(int i=0;i<samon247.length();i++){
        if(samon247[i]==' '){
            a+=1;
        }
    }
    cout<<a;
    return 0;
}

`1)`

var  dem,i:integer;

       s:string;

       k:char;
begin clrscr;
    writeln(‘Nhap xau: ‘); readln(s);
    write(‘Nhap ki tu k: ‘); readln(k);
      dem:=0;
    for i:=1 to length(s) do
      if k=s[i] then dem:=dem+1;
    writeln(‘Trong xau co ‘,dem,’ ki tu bang ki tu ‘,k);
readln;
end.

`2)`

var s1,s2:string;
begin clrscr;
    write(‘Nhap xau 1: ‘); readln(s1);
    write(‘Nhap xau 2: ‘); readln(s2);
    if s1[2]=s2 [length(s2)] then writeln(‘Hai ki tu trung nhau: ‘,s1[2])
                                            else writeln(‘Hai ki tu khong trung nhau’);
readln;
end.

`3)`

var s:string;
      i,dem:integer;
begin clrscr;
   write(‘Nhap xau: ‘); readln(s);
      dem:=0;
   for i:=1 to length(s) do
     if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then dem:=dem+1;
   writeln(‘So tu co trong xau: ‘,dem);
readln;
end.