Nhập vào số nguyên N,tách số N thành tổng hai số nguyên tố,nếu không có số nguyên tố in ra’không có hai số nguyên tố’

0 bình luận về “Nhập vào số nguyên N,tách số N thành tổng hai số nguyên tố,nếu không có số nguyên tố in ra’không có hai số nguyên tố’”

1. 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

   – Xét xem trong đoạn [n1…n2] số nào cho phép tách thành tổng hai số nguyên tố nhiều trường hợp nhất.

   – Tách một số thành tổng ba số nguyên tố.

   Bình luận

2. uses crt;
   var n,i,k:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      i:=2;
      while(a>1)and(a mod i<>0)do inc(i);
      nt:=i=a;
   end;
   begin
   clrscr;
      write(‘Nhap N: ‘);readln(n);
      for i:=1 to n div 2 do
         if (nt(i))and(nt(n-i)) then 
            begin writeln(‘Tach thanh: ‘,i,’ ‘,n-i); k:=1; end;
      if k=0 then writeln(‘Khong co 2 so nguyen to’);
   readln
   end.

   Bình luận