Viết chương trình 1 mang số nguyên từ bàn phím in mạng đó ra màn hình và tính tổng các phần tử chia hết cho 3
Ai giúp mik vs ạ tks nhiều
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
22 tháng 4 2023
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
17 tháng 2 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],dem,t;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
dem=0; t=0;
for (int i=1; i<=n; i++)
if (A[i]%2==0) dem++;
else t+=A[i];
cout<<dem<<endl;
cout<<t;
return 0;
}
24 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a[10000],n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>a[i];
t=t+a[i];
}
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i] %2==0) dem++;
cout<<dem<<endl;
cout<<t;
return 0;
}
21 tháng 3 2021
Bài 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
21 tháng 3 2021
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
15 tháng 2 2023
n = int(input("Nhập số phần tử: "))
# Tạo một mảng các phần tử
arr = []
# Nhập các phần tử vào mảng
for i in range(n):
arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))
# Tính tổng các phần tử chia hết cho 3
total = 0
for num in arr:
if num % 3 == 0:
total += num
# Xuất tổng ra màn hình
print("Tổng các phần tử chia hết cho 3 là:", total)
24 tháng 11 2021
bprogram min
uses crt
var A: array [1...250] of integer
tong :integer;
begin
tong:=0
writeln(‘nhap n:’); readln (n)
forr i:=1 to n do
begin
writeln (‘nhap phan tu thu ‘,i);
readln (A[i] );
end
for i:=1 to n do
begin
if (A[i] mod 3=0)
then tong:=tong +A[i];
end
writeln (Tong cac phan tu chia het cho 3)
readln ;
end
17 tháng 2 2023
#include <bits/stdc++.h>
using namespace std;
int A[1000],t,n;
int main()
{
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
t=0;
for (int i=1; i<=n; i++)
if (A[i]%3==0 || A[i]%5==0) t+=A[i];
cout<<t;
return 0;
}
15 tháng 2 2023
n = int(input("Nhập số phần tử: "))
# Tạo một mảng các phần tử
arr = [ ]
# Nhập các phần tử vào mảng
for i in range(n):
arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))
# Tính tổng các phần tử chia hết cho 3 và 5
total = 0
for num in arr:
if num % 3 == 0 and num % 5 == 0:
total += num
# Xuất tổng ra màn hình
print("Tổng các phần tử chia hết cho 3 và 5 là:", total)
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
readln;
end.