user-avatar
vanchien71218
2 năm trước
Viết cấu hình e của các nguyên tử có Z = 11, 19, 8, 16, 18, 22, 24, 26, 29. Nhận xét về cấu hình e của các nguyên tử và cho biết nguyên tố nào là kim loại? phi kim? khí hiếm?
Thích Trả lời Chia sẻ

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

Kiểm tra giúp mik với ja, mik sai chỗ nào mà nó không ra số lượng số nguyên tố vậy ạ? Uses CRT; Var a: Array [1..100] of Integer; i,n,p,s: Integer; Function ktnt (n: Integer): Boolean; Var i,d,p: Integer; Begin d:=0; If n<2 then ktnt:=false Else Begin p:=0; For i:=1 to n do If n mod i=0 then d:=d+1; End; If d=2 then ktnt:=true Else ktnt:=false; End; Function kthh (n:Integer): Boolean; Var i,s: Integer; Begin s:=0; For i:=1 to n div 2 do If n mod i=0 then s:=s+i; If s=n then kthh:=true Else kthh:=false; End; Begin ClrScr; Write ( 'Nhap so nguyen n: '); Readln (n); For i:=1 to n do Begin Write ( 'Nhap phan tu thu ',i,': '); Readln (a[i]); End; Write ( 'Cac so nguyen to co trong day tren la: ' ); For i:=1 to n do Begin If ktnt (a[i])=true then Begin Write (a[i],' '); End; End; For i:=1 to n do If ktnt (a[i])=true then p:=p+1; Writeln; Write ( 'Cac so hoan hao co trong day tren la: '); For i:=1 to n do If kthh (a[i])=true then Write(a[i],' '); Readln; End.

2018 © Loga - Không Ngừng Sáng Tạo - Bùng Cháy Đam Mê
Loga Team