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 i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

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.

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.

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

#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;
}

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

Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

program chan;

uses crt;

var i,n:integer;

begin

clrscr;

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

for i:=1 to n do

if i mod 2=0 then write('cac so chan tu 1 den n la:');

readln

end.

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

nha bạn

 |~ Hok tốt ~|