Bài toán nhập vào một dãy số nguyên và cho biết trong dãy có bao nhiêu số chia hết cho 3?
(Giúp mình với mn ơi, mình cần gấp ạ)
Những câu hỏi liên quan
Câu 5. Hãy xác định Input, Output và viết thuật toán cho bài toán sau: Cho dãy A gồm N số nguyên từ A1, A2,…, AN . Hãy cho biết có bao nhiêu số chia hết cho 3 có trong dãy A. giúp mình vs ạ:(
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
var n,i,k,d: integer;
a:array[1..52] of integer;
begin
write('Nhap so N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Nhap so k: '); readln(k);
d:=0;
for i:=1 to n do
if a[i] mod k = 0 then d:=d+1;
writeln('Co ',d,' so chia het cho ',k,' trong day');
if d mod 2 = 0 then writeln('Chan') else writeln('Le');
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..52]of integer;
i,n,k,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=52);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('Trong day co ',dem,' so chia het cho ',k);
if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')
else writeln('So luong so chia het cho ',k,' la so le');
readln;
end.
Đúng 0
Bình luận (0)
Viết phương trình: nhập N số nguyên và nhập N từ bàn phím:
-Tính tổng dãy số -> tham khảo bài 7.
-Đếm xem dãy có bao nhiêu số nguyên dương.
(mn giúp mk với ạ mk đang cần gấp ạ).
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập 1 dãy số gồm N số nguyên N≤100 in dãy vừa nhập.Tính và đưa ra màn hình tổng các số chia hết cho 2 nhưng không chia hết cho 3 trong dãy trên.Ghi kết quả vừa tính được vào tệp Bài tập.Out
Giúp mình với ạ
Viết chương trình nhập vào dãy gồm N số nguyên a1,a2,...,aN và số nguyên K bất kỳ . Tính và đưa ra màn hình tổng các số chia hết cho K trong dãy Giúp mình với mai mình nộp bài r 🤦
uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Cho số nguyên N và dãy a1, a2,....,an. Hãy cho biết có bao nhiêu số hạng trong dãy chia hết cho 2 a) Xác định input, output b) Hãy mô ta thuật toán để giải bài toán trên bằng cách liệt kê hoặc bằng sơ đồ khối........GIÚP EM VỚI Ạ😢
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
int main()
{
cin>>n;
int dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Giúp mình câu này với ạ
Viết chương trình nhập vào dãy số nguyền gồm N số. Nhập vào số cần tìm. Hãy cho biết có số cần tìm trong dãy số ban đầu hay không?
Cảm ơn ạ
Xem chi tiết
Program Hoc24;
var a: array[1..32000] of integer;
d,i,n,x: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
d:=0;
for i:=1 to n do if a[i]=x then d:=d+1;
if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
n,i,x,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then kt:=1;
if kt=0 then writeln(x,' khong co trong day')
else writeln(x,' co trong day');
readln;
end.
Đúng 0
Bình luận (0)
Cho n số nguyên a1,a2...an. Viết thuật toán để tính tổng các số nguyên trong dãy a chia hết cho 3.
Giúp mình với ạ
Mình cần gấp lắm 🥺🥺
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n;i++)
{
cin>>x;
if (x%3==0) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Cho dãy A gồm N số nguyên: a1,a2,...,an.Hãy cho biết có bao nhiêu số chia hết cho 3 trong dãy A đã cho. a) Hãy xá định dữ liệu vào (Input) và dữ liệu ra (output) bài toán trên. b) Viết thuật toán để giải bài toán trên.
def count_pairs_divisible_by_3(arr):
n = len(arr)
# Đếm số lượng số dư khi chia cho 3
count_mod = [0, 0, 0]
for num in arr:
count_mod[num % 3] += 1
# Trường hợp 0: Số dư 0 + Số dư 0
count_pairs = count_mod[0] * (count_mod[0] - 1) // 2
# Trường hợp 1: Số dư 1 + Số dư 2
count_pairs += count_mod[1] * count_mod[2]
# Trường hợp 2: Số dư 1 + Số dư 1 hoặc Số dư 2 + Số dư 2
count_pairs += count_mod[1] * (count_mod[1] - 1) // 2
count_pairs += count_mod[2] * (count_mod[2] - 1) // 2
return count_pairs
# Thử nghiệm
arr = [3, 5, 7, 9, 11, 13, 15]
result = count_pairs_divisible_by_3(arr)
print(f"Số lượng cặp số có tổng chia hết cho 3 là: {result}"
Đúng 0
Bình luận (0)