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