Câu1:Cho dãy A gồm N phân tử và dãy số hạng a1.......an A)tính tổng các số hạng của dẫy B) tính tổng các số chẵn lẻ của dẫy C) tìm các số chẵn lẻ của dẫy D) tính tổng các số chia hết cho 3,5,7 của dẫy Câu2: tính tổng Số=1+2+3......+n A) xác định bài toán B)viết thuật toán
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
int main()
{
cin>>n;
int t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
a)Số số hạng là : (99-11):2+1=45 (số)
Tổng là : (99 +11) x 45 : 2 = 2475
b) Số số hạng là: (98-10):2+1=45 (số)
Tổng là : (98+10)x45:2=2430
Các ý trên là dạng tính tổng của dãy số cách đều :
Công thức đây : Số hạng đầu trừ số hạng cuối :2 +1
Tổng là : Số hạng đầu + số số hạng x số số hạng :2
Mình chỉ cho bạn công thức của 2 ý đầu thui , mình cho bạn bít 2 ý đó , ý c mình ko kịp làm , bây giờ mình phải đi học .
Xin lỗi bạn
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,x,i,t1,t2;
int main()
{
cin>>n;
t1=0; t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
program BaiToanMang;
var
A: array[1..100] of integer;
N, i, demChan, tongLeChia3: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to N do
begin
write('a[', i, ']= ');
readln(A[i]);
end;
tongLeChia3 := 0;
for i := 1 to N do
begin
if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
begin
tongLeChia3 := tongLeChia3 + A[i];
end;
end;
writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
demChan := 0;
for i := 2 to N do
begin
if (A[i] mod 2 = 0) and (i mod 2 = 1) then
begin
demChan := demChan + 1;
end;
end;
writeln('So phan tu chan o vi tri le: ', demChan);
writeln('Cac so chan chia het cho 5: ');
for i := 1 to N do
begin
if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
begin
write(A[i], ' ');
end;
end;
end.
ko bt đúng ko ko dùng pascal nhiều
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a: array [1..100] of integer;
n, i, tsc, tsl: integer
begin
clrscr;
write('So phan tu cua mang la: '); readln(n);
while n<1 do begin
write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);
end;
for i:=1 to n do begin
write('So thu ',i,' la: '); readln(a[i]);
end;
tsc:=0;
tsl:=0;
for i:=1 to n do
if a[i] mod 2 =0 then tsc:=tsc+a[i]
else tsl:=tsl+a[i];
writeln('tong cac so chan la: ',tsc);
write('tong so cac so le la: ',tsl);
readln;
end.
Program bai1;
uses crt;
var i,n,s,s1: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n =');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cac so duong = ' ,s);
for i:= 1 to n do
if a[i] mod 2 <> 0 then s1:=s1+a[i];
writeln('tong cac so le =' ,s1);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
t:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
if 10 mod a[i]=0 then t:=t+a[i];
end;
writeln(dem1);
writeln(dem2);
writeln(t);
readln;
end.
a:
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}