Nhập vào một số nguyên dương N,tách số N thành các cặp là tổng của hai số nguyên tố
VD: 14 thành cặp 3+11
0 bình luận về “Nhập vào một số nguyên dương N,tách số N thành các cặp là tổng của hai số nguyên tố VD: 14 thành cặp 3+11”
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 div 2) do if (nt(i))and(nt(n-i)) then writeln(i,’+’,n-i); readln end.
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 div 2) do
if (nt(i))and(nt(n-i)) then writeln(i,’+’,n-i);
readln
end.