Mình làm bằng c++ nhé

#include
using namespace std;

// Hàm kiểm tra xem một số có phải là số Palindrome hay không
bool laSoPalindrome(int n) {
    int daoNguoc = 0;
    int temp = n;
    
    while (temp != 0) {
        int phanDu = temp % 10;
        daoNguoc = daoNguoc * 10 + phanDu;
        temp /= 10;
    }
    
    if (daoNguoc == n)
        return true;
    else
        return false;
}

// Hàm đếm số lượng số Palindrome trong đoạn [L; R]
int demSoPalindrome(int L, int R) {
    int dem = 0;
    
    for (int i = L; i <= R; i++) {
        if (laSoPalindrome(i)) {
            dem++;
        }
    }
    
    return dem;
}

int main() {
    int L, R;

    
    cin >> L;
    
    cin >> R;

    int ketQua = demSoPalindrome(L, R);

    cout << ketQua << endl;

    return 0;
}

Tui làm = pascal nhenn;

Uses crt;

Var dem,i,l,r:integer;

Function daoso(n:integer):integer;

Begin

Daoso:=0;

While n>0 do

Begin

Daoso:=daoso*10+n mod 10;

N:=n div 10;

End;

End;

Begin

Write('Nhap L'); readln(l);

Write('nhap R'); readln(r);

Dem:=0;

For i:=l to r do

If i=daoso(i) then dem:=dem+1;

Writeln(dem);

Readln;

End.