viết phương trình phân tích 1 số n(n>3) thành tổng của 2 số nguyên tố. với n nhập từ bàn phím

0 bình luận về “viết phương trình phân tích 1 số n(n>3) thành tổng của 2 số nguyên tố. với n nhập từ bàn phím”

1. program tongnguyento;

   uses crt;

   var n,i:integer;

   function ktnt(k:integer):boolean;

   var l:integer;

   begin

    ktnt:=false;

    if k<2 then exit;

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

     if k mod l=0 then exit;

    ktnt:=true;

   end;

   begin

   clrscr;

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

   for i:=2 to n div 2 do

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

   readln

   end.

   Bình luận

2. uses crt;
   var t2,n:word;
   function snt(x:word):boolean;
   var t1:word;
           begin
                   snt:=true;
                   if x<2 then exit(false) else
                   for t1:=2 to round(sqrt(x)) do
                   if x mod t1=0 then exit(false);
           end;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           write(‘N=’);
           for t2:=2 to n div 2 do
                   if (snt(t2)) and (snt(n-t2)) then
                   begin
                           write(t2,’+’,n-t2);
                           break;
                   end;
           readln
   END.

   Chúc bạn học tốt.

   Cho mình xin câu trả lời hay nhất.

   Bình luận