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.

28 tháng 10 2019

tổng số proton trong nguyên tử của hai nguyên tố A&B là 23. Tổng số notron trong nguyên tử hai nguyên tố A&B là 24. Tìm A & B
Chỉ mình làm đi

31 tháng 10 2021

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,j,tam;

int main()

{

cin>>n;

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

cin>>a[i];

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

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

if (a[i]<a[j]) swap(a[i],a[j]);

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

cout<<a[i]<<" ";

return 0;

}

25 tháng 12 2020

Em viết lại ý tưởng:

- Ta lập một hàm xét xem một số nguyên N có phải là SNT không. 

+ nếu N <= 1 thì hiển nhiên không phải

+ nếu N >= 2: ta xét số dư của N cho các số từ 2 đến phần nguyên của căn N

* nếu N chia hết cho bất kỳ số nào trong khoảng [2; phần nguyên căn N] thì N không là SNT, ngược lại N là SNT.

- Áp dụng hàm đó vào dãy a(N), cho biến dem <-- 0;

+ xét từ a[1] trở đi đến a[n], nếu a[i] là SNT thì dem <-- dem+1. Vòng lặp thực hiện đến khi i = N.

- Thông báo giá trị của dem hoặc không có snt trong dãy nếu dem = 0

7 tháng 11 2021

Input: N và dãy số nguyên a1, a2,..., aN

Ouput: dãy số sắp xếp theo thứ tự tăng dần

B1: Nhập vào n và dãy số nguyên a1, . . . ,aN;

B2: M ← N;

B3: Nếu M<2 thì in dãy đã sắp xếp rồi kết thúc;

B4. M ← M – 1; i ← 0;

B5: i ← i + 1;

B6: Nếu i > M thì quay lại bước 3;

B7. Nếu ai > ai+1 thì tráo đổi cho nhau;

B8: Quay lại bước 5; 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

cin>>a[i];

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

if (a[i]==0) 

{cout<<i; break; }

return 0;

}

1 tháng 12 2021

Tham khảo

 

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

22 tháng 4 2020

Program hotrotinhoc_hoc24;

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

d,i,n: integer;

begin

write('Nhap so nguyen duong N : '); readln(n);

d:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i]=0 then d:=d+1;

end;

if d>0 then write('Trong day co gia tri bang 0') else write('Trong day khong co gia tri bang 0');

readln

end.

22 tháng 4 2020

Em thưa thầy em không hiểu ạ

23 tháng 10 2016

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

23 tháng 10 2016

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.