**Code trong ví dụ là mình nhập xuất từ bàn phím còn code dưới là nhập xuất từ file

#include <bits/stdc++.h>
using namespace std;
bool kt(string n){
    long s=0;
    for (char i:n){
        s+=i-'0';
    }
    if (s%2==0) return true;
    else return false;
}
int main(){
    cin.tie(NULL);
    cout.tie(NULL);
    freopen("Cau1b.inp","r",stdin);
    freopen("Cau1b.out","w",stdout);
    ios_base::sync_with_stdio(false);
    long a,b;
    cin >> a >> b;
    long p[b+1];
    for (long i=0; i<=b; i++){
        p[i]=i;
    }
    p[0]=p[1]=0;
    for (long i=2; i<=sqrt(b); i++){
        for (long j=i*i; j<=b; j+=i){
            p[j]=0;
        }
    }
    long dem=0;
    for (long i=a; i<=b; i++){
        if (p[i]!=0){
            if (kt(to_string(p[i]))==true) dem++;
        }
    }
    cout << dem;
}

$\color{red}{\text{#Daoanhviet96}}$

uses crt;

var a,b,i,d: integer;

function nt(n: integer): boolean;

var i: integer;

begin

if n<2 then exit(false)

else

for i:=2 to trunc(sqrt(n)) do if n mod i=0 then exit(false);

exit(true);

end;

function ts(n: integer): integer;

var k,s: integer;

begin

s:=0;

while n<>0 do

begin

k:=n mod 10;

s:=s+k;

n:=n div 10;

end;

ts:=s;

end;

begin

assign (input,'cau1b.inp');  reset(input);

assign (output,'cau1b.out');  rewrite(output);

read(a,b);

d:=0;

for i:=a to b do

if (nt(i)) and (ts(i) mod 2=0) then d:=d+1;

write(d);

close(input);

close(output);

end.

$#Trumtinhoc$