Viết chương trình tính và in ra tổng các số nguyên chia hết cho 3 trong dãy số nguyên X1, X2, X3, ...Xn biết dãy số X1, X2, X3, ... Xn được nhập từ bàn phím
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
21 tháng 3 2021
Bước 1: Nhập n và nhập dãy số
Bước 2: tb←0; i←1;
Bước 3: tb←tb+x[i];
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4
Bước 6: Xuất tb/n;
Bước 7: Kết thúc
MN
23 tháng 4 2019
Bài 1 :
8x - 0,4 = 7,8*x + 402
8x - 7,8*x = 402 + 0,4
0,2*x = 402,04
x= 402,04 : 0,2
x = 2012
MN
23 tháng 4 2019
Bài 2
Theo bài ra , số học sinh lớp 6A bằng 1/2 tổng số học sinh hai lớp 6B và 6C
=> Số học sinh lớp 6A bằng 1/3 số học sinh của cả 3 lớp
Số học sinh lớp 6A là :
120 x 1/3 = 40 học sinh
Tổng số học sinh lớp 6B và 6C là :
120 - 40 = 80 học sinh
Số học sinh lớp 6B là :
( 80 - 6 ) : 2 = 37 học sinh
Số học sinh lớp 6C là :
37 + 6 = 43 học sinh
TP
26 tháng 4 2023
Python:
n = input("Nhập dãy số nguyên: ").split()
n = [int(i) for i in n]
so_le = [i for i in n if i % 2 != 0]
tong = sum(n)
print("Các số lẻ trong dãy là: ", so_le)
print("Tổng các số trong dãy là: ", tong)
Pascal:
program tongvasole;
const
MAX_SIZE = 1000;
var
numbers: array[1..MAX_SIZE] of Integer;
count, i: Integer;
total: Integer;
begin
Write('Nhập số lượng phần tử trong dãy: ');
ReadLn(count);
for i := 1 to count do
begin
Write('Nhập phần tử thứ ', i, ': ');
ReadLn(numbers[i]);
end;
Write('Các số lẻ trong dãy là: ');
total := 0;
for i := 1 to count do
begin
if numbers[i] mod 2 <> 0 then
Write(numbers[i], ' ');
total := total + numbers[i];
end;
WriteLn;
WriteLn('Tổng các số trong dãy là: ', total);
end.
8 tháng 2 2016
a.đặt a+15=b2;a-1=c2
=>(a+15)-(a-1)=b2-c2=(b+c)(b-c)
=>(b+c)(b-c)=16
ta có 2 nhận xét:
*(b+c)-(b-c)=2c là 1 số chẵn nên 2 số b+c và b-c là 2 số cùng tính chẵn lẻ.Mà 16 là số chẵn nên 2 số b+c và b-c cùng chẵn.
*b+c>b-c(vì a là số tự nhiên)
=>b+c=8 và b-c=2 =>b=(8+2):2=5
vậy a+15=52=>a=10
4 tháng 5 2021
uses crt;
var x:array[1..100]of real;
n,i:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+x[i];
writeln(tb/n:4:2);
readln;
end.
18 tháng 5 2021
uses crt;
var a:array[1..100]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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
var n:integer;
begin
write('Nhap n: '); readln(n);
if (n mod 3 =0) then
write(n,' chia het cho 3')
else
write(m,' k chia het cho 3');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1;i<=n; i++)
{
cin>>x;
if (x%3==0) t+=x;
}
cout<<t;
return 0;
}