Số 2021 có thể viết thành tổng của hai số nguyên tố không vì sao

Mọi số tự nhiên đều có thể viết được dưới dạng tổng c̠ủa̠ hai số nguyên tố．Viết chương trình thực hiện tách một số tự nhiên thành tổng c̠ủa̠ hai số nguyên tố.

Program Hotboy ;

Var i，n:integer;

Function Ninh(n:integer):Boolean;

Var cute: Boolean;

var j:integer ;

Begin

Cute:=true;

For j:=2 to n-1 do if (n mod j) = 0 then cute:=cute and false;

if n>=2 then Ninh:=cute else Ninh:=false;

End;

Begin

Write(Nhap so n: );Readln(n);

For i:=2 to n div 2 do if (Ninh(i) and Ninh(n-i)) then Writeln(n， = ，i， + ，n-i);

Readln

End.

Program Hotboy ;

Var i，n:integer;

Function Ninh(n:integer):Boolean;

Var cute: Boolean;

var j:integer ;

Begin

Cute:=true;

For j:=2 to n-1 do if (n mod j) = 0 then cute:=cute and false;

if n>=2 then Ninh:=cute else Ninh:=false;

End;

Begin

Write(Nhap so n: );Readln(n);

For i:=2 to n div 2 do if (Ninh(i) and Ninh(n-i)) then Writeln(n， = ，i， + ，n-i);

Readln

End.

Program Hotboy ;

Var i，n:integer;

Function Ninh(n:integer):Boolean;

Var cute: Boolean;

var j:integer ;

Begin

Cute:=true;

For j:=2 to n-1 do if (n mod j) = 0 then cute:=cute and false;

if n>=2 then Ninh:=cute else Ninh:=false;

End;

Begin

Write(Nhap so n: );Readln(n);

For i:=2 to n div 2 do if (Ninh(i) and Ninh(n-i)) then Writeln(n， = ，i， + ，n-i);

Readln

End.