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ố.
1 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm