Câu 1 :

uses crt;
var st : string;
begin clrscr;
write('Nhap xau :'); readln(st);
writeln('Do dai xau :', length(st));
readln
end.

Câu 2 :

uses crt;
var st : string;
i : integer;
begin clrscr;
write('Nhap xau :'); readln(st);
writeln(upcase(st));
readln
end.

Câu 3 :

uses crt;
var s1,s2 : string;
i : integer;
begin clrscr;
write('Nhap xau 1 :'); readln(s1);
write('Nhap xau 2 :'); readln(s2);
if length(s1)>length(s2) then write('Xau 1 dai hon') else if length(s1)<length(s2) then write('Xau 2 dai hon')
else write('Bang nhau');
readln
end.

Câu 4 :

uses crt;
var s1,s2 : string;
i : integer;
begin clrscr;
write('Nhap xau 1 :'); readln(s1);
write('Nhap xau 2 :'); readln(s2);
if s1[2] = s2[4] then write('Trung nhau') else write(0);
readln
end.

1.

#include <iostream>
using namespace std;
int main()
{
    string s;
    getline(cin,s);
    cout<<s.size();
    //samon247
    return 0;
}

2.

#include <iostream>
using namespace std;
int main()
{
    string s;
    getline(cin,s);
    for(int i=0;i<s.size();i++){
        if(s[i]>='a'&&s[i]<='z'){
            s[i]-=32;
        }
    }
    cout<<s;
    //samon247
    return 0;
}

3.

#include <iostream>
using namespace std;
int main()
{
    string s,t;
    getline(cin,s);
    getline(cin,t);
    if(s.size()>t.size()){
        cout<<s;
    }
    else{
        cout<<t;
    }
    //samon247
    return 0;
}

4.

#include <iostream>
using namespace std;
int main()
{
    string st1,st2;
    getline(cin,st1);
    getline(cin,st2);
    if(st1[1]==st2[3]){
        cout<<"YES";
    }
    else{
        cout<<"NO";
    }
    //samon247
    return 0;
}

5.