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ố.
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 Tong_nguyen_to;
Var i,n:integer
; Function NT(n:integer):Boolean
; Var ok: Boolean; i:integer;
Begin ok:=true;
For i:=2 to n-1 do if (n mod i) = 0 then ok:=ok and false;
if n>=2 then NT:=ok else NT:=false;
End;
Begin Write(‘Nhap so n: ‘)
;Readln(n); For i:=2 to n div 2 do if (NT(i) and NT(n-i)) then Writeln(n,’ = ‘,i,’ + ‘,n-i);
Readln
End.