Dùng chương trình Pascal Nhập vào một số nguyên dương N,đổi N thành các cặp a,b sao cho a+b=N và a,b là số nguyên tố,in ra màn hình một số là số các c

0 bình luận về “Dùng chương trình Pascal Nhập vào một số nguyên dương N,đổi N thành các cặp a,b sao cho a+b=N và a,b là số nguyên tố,in ra màn hình một số là số các c”

1. uses crt;
   var n,i: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(‘n=’);readln(n);
      for i:=1 to n-2 do
         if (nt(i))and(nt(n-i)) then writeln(i,’ ‘,n-i);
   readln
   end.

   Bình luận

2. program bien_doi;

   uses crt;

   var n,i:integer;

   {—Ham-nguyen-to—}

   function ktnt(k:integer):boolean;

   var e:integer;

   begin

          ktnt:=false;

          if k<2 then exit;

          for e:=2 to trunc(sqrt(k)) do

                 if k mod e=0 then exit;

          ktnt:=true;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

          write(‘Nhap N: ‘);  readln(n);

          for i:=2 to n div 2 do

                if ktnt(i) and ktnt(n-i) then writeln(i,’ ‘,n-i);

          readln;

   end.

   Bình luận