K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

2 tháng 9 2021

67 , 691 nha bạn

học tốt

24 tháng 1 2018

D

Ta có sự phân bố electron theo các lớp:

Z = 20 → 2) 8) 8) 2 → có 4 lớp electron.

Z = 22 → 2) 8) 10) 2 → có 4 lớp electron.

Z= 24 → 2) 8) 13) 1 → có 4 lớp electron.

Chú ý: Trường hợp z = 24 (Crom) có cấu hình electron đặc biệt.

14 tháng 5 2018

C

Các nguyên tố có số hiệu nguyên tử là 5, 13, 31 đều thuộc nhóm IIIA

1 tháng 9 2018

C

Các nguyên tố có số hiệu nguyên tử là 11, 13, 18 đều thuộc chu kỳ 3

16 tháng 1 2017

A

Các nguyên tố có số hiệu nguyên tử là 2 và 10 cùng thuộc nhóm VIIIA

22 tháng 11 2021

dạng liệt kê:

B1: Nhập số nguyên dương N

B2: Nếu N=1, thông báo N ko phải số nguyên tố, kết thúc

B3: Nếu N ∈ (1;4), thông báo N là số nguyên tố, kết thúc

B4: i <-- 2

B5: Nếu i>[√N] thông báo N là số nguyên tố, kết thúc

B6: Nếu N chia hết cho i thì thông báo N ko phải là số nguyên tố, kết thúc

B7: i <-- i+1 rồi quay lại bước 5.

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  begin

readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

 if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

 if a[i] mod j=0 then 

begin

kt:=1;

break;

end;

if kt=0 then 

begin

inc(dem);

t:=t+a[i];

write(a[i]:4);

end;

end;

writeln;

writeln('So luong la:',dem);

writeln('Tong la: ',t);

readln;

end.  

uses crt;
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
    st1,st2,st:string;
    y:integer;
begin
clrscr;
write('nhap so k='); readln(k);
if k>1 then begin
               d:=1;
               n:=3;
               repeat
                   repeat
                       kt:=0;
                       n:=n+2;
                       for i:=2 to trunc(sqrt(n)) do
                         if n mod i=0 then kt:=1;
                       if kt=0 then str(n,st1);
                   until kt=0;
                   {----------------------------------------}
                   repeat
                       kt:=0;
                       n:=n+2;
                       for j:=2 to trunc(sqrt(n)) do
                         if n mod j=0 then kt:=1;
                       if kt=0 then str(n,st2);
                   until kt=0;
                   {----------------------------------------}
                   kt:=0;
                   st:=st1+st2;
                   val(st,x,y);
                   for i:=2 to trunc(sqrt(x)) do
                     if x mod i=0 then kt:=1;
                   if kt=0 then d:=d+1;
               until d=k;
            end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
readln;
end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,j;

bool kt;

int main()

{

freopen("nguyento.inp","r",stdin);

freopen("nguyento.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]>1) 

{

kt=true;

for (j=2; j*j<=a[i]; j++)

if (a[i]%j==0) kt=false;

if (kt==true) cout<<a[i]<<" ";

}

return 0;

}