Question

Viết câu lệnh để tính các tổng sau:

a. S₁ = 1 + 2 + 3 + ... + n

b. S₂ = 1 + 2 + 3 + ... + 12

c. S₃ = 2 + 4 + 6 + ... + n

d. S₄ = 2 + 4 + 6 + ... + 32

e. S₅ = 1 + 3 + 5 + ... + n

f. S₆ = 1 + 3 + 5 + ... + 39

Các bạn giải được câu nào thì giải giúp mình. Cảm ơn rất nhiều!!

Answer 1

Lời giải :

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

S1:=0;

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

write(S1);

b) S2:=0;

for i:= 1 to 12 do S2:=S2+i;

write(S2);

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

S3:=0;

for i:= 1 to n do

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

write(S3);

d) S4:=0;

for i:=1 to 32 do

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

write(S4);

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

S5:=0;

for i:=1 to n do

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

write(S5);

f) S6:=0;

for i:= 1 to 39 do

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

write(S6);

Answer 2

bài này dễ