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.