Viết câu lệnh để tính các tổng sau:
a. S1 = 1 + 2 + 3 + ... + n
b. S2 = 1 + 2 + 3 + ... + 12
c. S3 = 2 + 4 + 6 + ... + n
d. S4 = 2 + 4 + 6 + ... + 32
e. S5 = 1 + 3 + 5 + ... + n
f. S6 = 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!!
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);
cảm ơn bạn nhưng nếu chỉ viết câu lệnh thì mình viết như thế hả.??