uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

program so_nguyen_to;

uses crt;

var i,n:integer;

function kt(n:integer):boolean;

var i,j:integer;

begin

j:=0;

for i:=1 to n do

if n mod i=0 then inc(j);

if j=2 then kt:=true

else kt:=false;

end;

BEGIN

clrscr;

write('nhap n:');readln(n);

if kt(n) then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

writeln('cac so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if kt(i) then write(i:5);

writeln;

writeln('cac cap so le lien tiep la so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if (i mod 2=1) and (kt(i)) and (kt(i+2)) then write(i,',',i+2);

readln;

end.

câu c bạn viết cách ra nhé!

d

D

\(TC:\)

\(2p+n=34\)

\(\Rightarrow n=34-2p\)

\(p\le n\le1.5p\)

\(\Leftrightarrow\) \(p\le34-2p\le1.5p\)

\(\Leftrightarrow9.7\le p\le11.33\)

\(\Leftrightarrow\left[{}\begin{matrix}p=10\left(l\right)\\p=11\left(n\right)\end{matrix}\right.\)

\(Vậy:p=e=11\)

\(n=12\)

Gọi số hạt proton  = số hạt electron = p

Gọi số hạt notron  = n

a)

Tổng số hạt : 2p + n = 24

Số khối :  p + n = 16

Suy ra p = n = 8

Vậy nguyên tử có 8 hạt proton, 8 hạt notron và 8 hạt electron.

b)

Tổng số hạt : 2p + n = 60 ⇔ n = 60  -2p

Số khối : \(p + n \) ≤ 40 ⇔ p + 60 - 2p ≤ 40 ⇔ p ≥ 20(1)

Mặt khác : p ≤ n ≤ 1,5p

⇒  p ≤ 60 - 2p ≤ 1,5p

⇒ 17,14 ≤ p ≤ 20(2)

Từ (1)(2) suy ra p = 20 ⇒ n = 60 - 2p = 20

Vậy nguyên tử có 20 hạt proton , 20 hạt notron và 20 hạt electron,

I. Nội qui tham gia "Giúp tôi giải toán"

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.