Mọi số tự nhiên đều có thể viết 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ố

0 bình luận về “Mọi số tự nhiên đều có thể viết 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. Program NhatNgu;
   Uses crt;
   Var a,i: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to trunc(sqrt(a)) do
                   If a mod i = 0 then exit(false);
           exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           For i:=1 to a div 2 do
                   If (ngto(i)) and (ngto(a-i)) then Writeln(i,’ ‘,a-i);
           Readln
   End.

   Bình luận