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ố'

Trangdong2210

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

Kanpolit

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

Vote (0) Phản hồi (0) 2 năm trước

Mitlun77

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

giải thích vì sao một số bệnh do virus gây nên có thể trở thành đại dịch

vẽ anime nhá yêu cầu full màu hắn hoi ạ :(

Dưới tác dụng của lực F = 2000N theo phương ngang. Một ô tô chuyển động thẳng đều trên đường nằm ngang. Hệ số ma sát lăn giữa xe và mặt đường là 0,04. Lấy g = 10 (m/s2). Tính khối lượng của xe ?

a, 2,34 x 99 + 2,34 : 0,2 - 2,34 : 0,25 b,2/5 + 2/5 x 1/3 : 1/4 + 2/5 : 3/2

Mn giúp mik với ạ ! Mik cảm ơn nhiều ạ !

Nhật Ký Làm Theo Lời Bác : Chủ Đề : UỐNG NƯỚC NHỚ NGUỒN Giúp mik nhanh nhe Cảm ơn mn

Vẽ hình dưới nha!! Lần đầu mk và 1 người bn gặp nhau cũng nhờ hình ảnh này !

Viết đoạn văn giải thik vì sao đoạn trích Nước Đại Việt ta của Ng Trãi có ý nghĩa như bản tuyên ngôn độc lập của dân tộc

Thế Nào là kết hợp sức mạnh dân tộc với sức mạnh thời đại và vai trò của chúng

để phòng chống tệ nạn xã hội em cần phải làm gì

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến