Số số tự nhiên lẻ từ 2 đến 500 là:
            (499 - 3) : 2 + 1 = 249(số)

Tổng cac số lẻ từ 3 đến 500 là:

            (499 + 3) x 249 : 2 = 62499

Số số tự nhiên Chẵn từ 2 đến 500 là:

            (500 - 2) : 2 + 1 = 250(số)

Tổng các số chẵn đó là:
             (500 + 2 ) x 250 = 62750

Hiệu của tổng các số tự nhiên chẵn và tổng các só tự nhiên lẻ từ số 2 đến số 500
             62750 - 62499 = 251

các số tự nhiên chẵn từ số 2 đến số  500 là :

      (500 -2) : 2 + 1 = 250 (số)

tổng các số tự nhiên chẵn từ 2 đên 500 là :

    ( 500 + 2) . 250 : 2 = 62750

các số tự nhiên lẻ từ 2 - 500 là :

    (499 - 3) : 2 + 1 = 249 (số)

tổng các số tự nhiên chẵn từ 2 đến 500 là :

    (499 + 3) . 249 : 2 = 62499

hiệu của của tổng các số tự nhiên chẵn và tổng các số tự nhiên lẻ từ 2 đến 500 là :

       62750 + 62499 = 125249

                          đáp số : 125249

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do 

 s:=s*i;

writeln(n,'!=',s:0:0);

readln;

end.

1).

program oken;

uses crt;

var n,i: integer;

      gt: qword;

begin

write('nhap n: '): readln(n);

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

2).

program tongcacsole;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 203 do 

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

write(t);

end.

3).

program tongcacsochan;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 20 do 

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

write(t);

end.

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if n mod i=0 then t:=t+i;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

từ 1 đến 200 có: (199-1):2+1=100 (số lẻ)

Tổng các số lẻ:(199-1 )x100:2=10000

TBC là : 10000:100=100

Từ 1 đến 200 có:(200-2):2+1=100 (số chẵn)

Tổng các số chẵn là:(200+2)x100:2=10100

TBC là:10100:100=101

Dãy số trên có số số hạng là (2010-2):2+1=1005(số hạng)

Vậy tổng của các số tự nhiên chẵn từ 2 đến 2010

(2010+2).1005:2=1011030

Dãy số tự nhiên chẵn từ 2 đến 2010 là:2,4,6,...,2010.

              Từ 2 đến 2010 có tất cả số  số tự nhiên chẵn là:

                                 (2010-2):2+1=1005(số)

                 tổng các số tự nhiên  chẵn từ 2 đến 2010 là:

                         (2010+2)x1005:2=1011030

                                    Đáp số:1011030

Dãy số chẵn từ 1 => 999 là :

2 ; 4 ;  6 ; 8 ; ...... ; 998

Khoảng cách mỗi số là 2 

Số các số hạng trong dãy là 

( 998 - 2 ) : 2 +1 = 499 ( số hạng) 

Tổng dãy đó là :

( 998 + 2) * 499 : 2 = 24950

Số các số chẵn từ 1 đến 999 

(999-1):1+1=999(số )

Tổng là 

(1+999).999:2=499500

Dãy số đó được viết là : 

A = 2 ; 4 ; 6 ; 8 ; ... ; 998

Có số số hạng là :

   ( 998 - 2 ) ÷ 2 + 1 = 499 ( số )

Tổng dãy số đó là :

   ( 2 + 998 ) × 499 ÷ 2 = 249 500 

      Đáp số : ...

Cbht

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n-1 do

if i mod 2=0 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln(t);

readln;

end.

n = int(input())
s = 0
for i in range(1, n):
    if i % 2 == 0:
        print(i)
        s += i
print(s)

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

if (i%2==0) s=s+i;

cout<<s;

return 0;
}

câu 1:

uses crt;

var p,i:integer;

begin

clrscr;

p:=1;i:=1;while i<=5 do

begin

p:=p*i;i:=i+1;

end;

write(p);

readln;

end. 

bai 2:

uses crt;var p,i:integer;begin    clrscr;    p:=1; i:=0;    while i <=10 do    begin

i:=i+1;        if (i mod 2<>0) then p:=p*i;    end;    write(p);    readln;end. bai 3:

uses crt;var n,i,p:integer;begin     clrscr;     write('nhap n: ');     readln(n);     i:=1;     p:=1;     while i<=n do     begin       if i mod 2=0 then p:=p*i;       i:=i+1;     end;     write(p);     readln;end.     

*Cách khác: Dùng for

Câu 1: 

uses crt;

var p,i:longint;

begin

p:=1;

for i:=1 to 4 do 

  p:=p*i;

writeln(p);

readln;

end.

Câu 2: 

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.