Hãy viết chương trình để tính tổng S sau đây S=2+4+6+8+...+2n
2 câu trả lời
Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+2*i;
Write('S = ',s);
Readln
End.
uses crt;
var n,i,s:longint;
begin
clrscr;
write('nhap n='); read(n);
s:=0;
for i:=2 to 2*n do
if i mod 2=0 then s:=s+i;
write(s);
readln
end.
Câu hỏi trong lớp
Xem thêm