a/ tổng của dãy số chẵn là số chẵn vì
 ta có 1 dãy số 2+4+6+8+10 = 30 là số chẵn
kết luận tổng là số chẵn
b/ tổng của dãy số lẻ là số lẻ vì
ta có dãy số 1+3+5+7+9=25 là số lẻ
kết luận ltổng là số lẻ
 

a) Tổng của 1 dãy số chẵn là số chẵn

VD:2+4+6+...+100=2550

b) Tổng của một dãy số lẻ là số chẵn

VD:1+3+5+...+99=2500

Không tin cộng lại thử xem

uses crt;

var a:array[1..100]of integer;

i,n,dem,dem1,dem2,j,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

writeln('Cac so le la: ');

for i:=1 to n do 

if a[i] mod 2<>0 then 

begin

write(a[i]:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so le');

dem1:=0;

writeln('Cac so chan la: ');

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem1);

end;

writeln;

writeln('Co ',dem1,' so chan');

dem2:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem2);

end;

writeln('Co ',dem2,' so nguyen to');

readln;

end.

câu hỏi đâu bạn?

Ko đăng linh tinh

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

t:=0;

for i:=m to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if (n%2==0)

{

t=0;

for (i=1; i<=n; i++) if (i%2==0) t+=i;

}

else 

{

t=0;

for (i=1; i<=n; i++) if (i%2!=0) t+=i;

}

cout<<t;

return 0;

}

tk

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

t:=0;

for i:=m to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

uses crt;

var n,i,t,dem:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then 

begin

t:=0;

for i:=1 to n do 

if i mod 2=0 then t:=t+i;

writeln(t);

end

else 

begin

t:=0;

dem:=0;

for i:=1 to n do 

 if i mod 2=1 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(t/dem:4:2);

end;

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n: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);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so chan la: ');

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

writeln;

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chia het cho 3 la: ');

for i:=1 to n do 

  if a[i] mod 3=0 then write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so o vi tri chan la: ');

for i:=1 to n do 

  if i mod 2=0 then write(a[i]:4);

writeln;

writeln('Cac so o vi tri le la: ');

for i:=1 to n do 

  if i mod 2=1 then write(a[i]:4);

readln;

end.

c1:

Gọi 2 số chẵn cần tìm là a;a+6( a là chẵn)

Ta có:

a+a+6=102

2a=102-6

2a=96

a=96/2

a=48

=> a+6=48+6=54

Vậy số thứ nhất là 48; số thứ 2 là 54

C2:

Ta có: số lớn nhất có 3 chữ số chia hết cho 3 là 999

số bé nhất có 3 chữ số chia hết cho 3 là 102

Khoảng cách giữa các số chia hết cho 3 là 3

công thức: (số cuối- số đầu)/ khoảng cách +1

Áp dụng công thức:

(999-102)/3+1=300(số)

Vậy có tất cả 300 số có 3 chữ số chia hết cho 3

Chúc bạn học tốt!^_^

bạn ơi mình laf102 mà

Gieo hai xúc xắc và tính tích số chấm ở các mặt trên của xúc xắc.

   - Nếu kết quả nhận được là số chẵn thì thỏ Chẵn được tiến thêm 1 ô.

   - Nếu kết quả nhận được là số lẻ thì thỏ Lẻ được tiến thêm 1 ô