uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

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

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.

a) Số chẵn thứ 2015 là:

\(\left(2015-1\right).2+0=4028\)

2015 số chẵn đầu tiên tạo thành dãy : 0 ; 2 ; 4 ; 6 ; ... ; 4028

Tổng của 2015 số chẵn đầu tiên là:

\(\left(4208+0\right).2015:2=4058210\)

b) Số chia hết 3 thứ 2015 là:

\(\left(2015-1\right).3+0=6042\)

2015 số chia hết cho 3 đầu tiên tạo thành dãy: 0 ; 3 ; 6 ; 9 ; ... ; 6042

tổng của 2015 chia hết cho 3 đầu tiên là:

\(\left(6042+0\right).2015:2=6087315\)

c) số tự nhiên chia 3 dư 1 thứ 15 là :

\(\left(15-1\right).3+1=43\)

15 số tự nhiên đầu tiên chia 3 dư 1 tạo dãy: 1 ; 4 ; 7 ; 10 ; ... ; 43

tổng 15 số tự nhiên đầu tiên chia 3 dư 1 là : 

\(\left(43+1\right).15:2=330\)

ta có:

0,2,4,6,....96,98(vì có số 0)

 Số số hạng có là:

(98-0):(2-0)+1=50(số)

Tổng 100 số tự nhiên chẵn đầu tiên là:

(98+0)x50:2=2450

               Đáp số: 2450

mình xin lỗi mình làm nhầm

Ta có:

0,2,4,6,....,196,198

 Số số hạng có là:

      (198-0):(2-0)+1=100 (Số)

 Tổng của 100 số tự nhiên chẵn đầu tiên là:

      (198+0)x100:2=9900

                   Đáp số: 9900

200 số chẵn đầu tiên là :

0;2;4;6;.....;398

Tổng là :

(398 + 0) . 200 : 2 = 39800

A

A

Chọn A

a,4950

b,4851

c,2500

4950                                             4851                                                      2500

a)4950

b)4851

c)2500

chắc chắn đấy k sao đâu 

Bn xem đúng k nhé:

Bước 1: MAX =60 I=1Bước 2: nếu MAX >I thì I:= I+1 , ngược lại kết thúc chương trìnhBước 3: nếu MAX > I kết thúc chương trìnhINPUT: 60 số tự nhiên đầu tiênOUTPUT: tính tổng

Chúc bn hok tốt~~

Bước 1: Tong←0; i←1;

Bước 2: Nếu i > 60 in ra Tong của 60 số tự nhiên đầu tiên và kết thúc

Bước 3: Nếu i chia 2 dư 0 thì T ← T + i;

Bước 4: i← i + 1, quay lại bước 2

Bước 1: t←0; i←1;

Bước 2: nếu i mod 2=0 thì t←t+i;

Bước 3: i←i+1;

Bước 4: Nếu i<=60 thì quay lại bước 2

Bước 5: Xuất t

Bước 6: Kết thúc

tk:

https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html

Program HOC24;

var n,i: integer;

t: longint;

Begin

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

t:=0;

for i:=1 to n do t:=t+i;

if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');

readln

end.

n = int(input('nhap n'))

s = 0

for i in range(0,n):

     s = s+i

print('tong cua day tu 0 den '+n+'la'+s)

if s%2 == 0:

     print('s la so chan')

else:

     print('s la so le')