viết chương trình tạo dãy A gồm N số nguyên (N≤25) và 1 số nguyên k.
A) cho biết trong dãy A có bao nhiêu số có giá trị bằng k
B) cho biết trong dãy â có bao nhiêu số chia hết cho k
C) Tính tổng các số chia hết cho k trong dãy A
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
GB
26 tháng 3 2023
n = int(input("Nhập n: "))
a = [ ]
for i in range(n):
a.append(int(input(f"Nhập phần tử a[{i}]: ")))
k = int(input("Nhập k: "))
count_greater = 0
count_divisible_by_three = 0
for num in a:
if num > k:
count_greater += 1
if sum(int(digit) for digit in str(num)) % 3 == 0:
count_divisible_by_three += 1
print(f"Số lớn hơn {k}: {count_greater} số")
print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")
9 tháng 12 2021
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1;i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
return 0;
}
KV
18 tháng 4 2022
var a:array [1..100] of integer;
i,n,dem:integer;
begin
write('Nhap so luong so N = ');readln(n);
for i:=1 to n do
begin
write('Nhap vao so thu ',i,': ');readln(a[i]);
if a[i] mod 3 = 0 then dem:=dem+1;
end;
write('Co ',dem,' so chia het cho 3');
readln;
end.
18 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
dem=0;
for (i=1; i<=n; i++)
if (a[i]%3==0) dem++;
cout<<dem;
return 0;
}
21 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<5)
{
t=t+x;
dem++;
}
}
cout<<t<<" "<<dem;
return 0;
}
16 tháng 11 2021
d:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+i;
cout<<s;
return 0;
}
2 tháng 2 2021
uses crt;
var a:array[1..100]of integer;
i,n,dem,k: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);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);
readln;
end.
7 tháng 5 2021
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.
7 tháng 5 2021
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.
25 tháng 10 2021
program Tin_hoc;
Uses crt;
var i,n,k,dem:integer;
a;array[1..10000] of integer;
Begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' pha tu cua day A:');
for i:= 1 to n do readln(a[i]);
dem:=0;
write('Nhap k: ');readln(k);
for i:= 1 to n do if a[i] = k then inc(dem);
writeln('Day A co ',dem,' ki tu ',k,);
readln;
end.