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ố’
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ố’
By Isabelle
By Isabelle
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ố’
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ố.
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.