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 ạ)
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.
Những câu hỏi liên quan
LD
1 tháng 1 2021
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.
2 tháng 1 2021
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.
ML
17 tháng 4 2022
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.
7 tháng 5 2021
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.
11 tháng 11 2021
#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;
}
ML
26 tháng 2 2021
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.
26 tháng 2 2021
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.
19 tháng 10 2021
#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;
}
30 tháng 12 2023
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}"
Tham khảo
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
Mình đang cần Input, Output và thuật toán cơ ạ, cái này dánh cho lập trình rùi ạ=(((