Cho dãy số 16,7,21,3,25
Đếm và tính tổng các số chia hết cho 3
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
t:=t+a[i];
s:=s*a[i];
end;
if dem=0 then writeln('Khong co so chia het cho 3 trong day')
else begin
writeln('Tong cac so chia het cho 3 la: ',t);
writeln('Tich cac so chia het cho 3 la: ',s);
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2,s1,s2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem1:=0;
dem2:=0;
t1:=0;
t2:=0;
s1:=1;
s2:=1;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
inc(dem1);
t1:=t1+a[i];
s1:=s1*a[i];
end
else begin
inc(dem2);
t2:=t2+a[i];
s2:=s2*a[i];
end;
end;
if dem1=0 then writeln('Khong co so chan trong day')
else begin
writeln('So so chan la: ',dem1);
writeln('Tong cac so chan la: ',t1);
writeln('Tich cac so chan la: ',s1);
end;
if dem2=0 then writeln('Khong co so le trong day')
else begin
writeln('So so le la: ',dem2);
writeln('Tong cac so le la: ',t2);
writeln('Tich cac so le la: ',s2);
end;
readln;
end.
cho n nguyên dương và dãy A gồm N số nguyên a1,a2...an. a, đếm số lượng số lẽ trong dãy .b tính tổng các số chia hết cho 3 và 4. c đưa ra vị trí của các số chẵn hỏi out là gì?
a: #include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2!=0) dem++;
}
cout<<dem;
return 0;
}
viết chương trình nhập vào dãy M gồm N (N <= 100) số nguyên. Đếm và tính tổng các số chia hết cho 3 trong dãy
Giúp mình với ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem,t;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%3==0)
{
dem++;
t+=x;
}
}
cout<<dem<<" "<<t;
return 0;
}
cho dãy A gồm N số nguyên A1,A2,...,An. hãy viết thuật toán theo phương pháp liệt kê cho các câu hỏi saua, tính tổng các số dương trong dãy Ab,tính tổng bình phương các số chia hết cho 2 trong dãy Ac,đếm số lượng các số là ước của 3d,tính tích các số là số lẻ, số chẵn d, đếm số lượng các số chia hết cho 2 và 5mọi người mỗi người giúp em 1 phần được không ạ:(( em cảm ơn
Viết công thức nhập vào dãy số N phân tử đếm các phân tử không chia hết cho 3.Tính tổng các phân tử chẵn không chia hết cho 4.Kết quả hiển thị ra màn hình
#include <bits/stdc++.h>
using namespace std;
int n,A[1000],i,dem=0,t=0;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
for (int i=1; i<=n; i++)
{
if (A[i]%3!=0) dem++;
if (A[i]%4==2) t+=A[i];
}
cout<<dem<<endl;
cout<<t;
return 0;
}
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n<=300, |ai| <= 40000).
a. Tính tổng dãy số A.
b. Tính tổng các số chia hết cho 3 có trong dãy số trên.
c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.
f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.
g. Tính tổng bình phương các số âm có trong dãy số trên.
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Chị giải theo cách khác được không ạ
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Giúp em với ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
Câu 1 :Xây dựng thuật toán để đếm các số chia hết cho K và là số chẵn Câu 2:Xây dựng thuật toán tính tổng các số chia hết cho K của dãy số nguyên A gồm N số a1,a2...an Giải giúp mình với. Cảm ơn ạ❤️
2:
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,t,k;
int main()
{
cin>>n>>k;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t=t+x;
}
cout<<t;
return 0;
}