Question

Viết chương trình tính tổng sau:

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

Với n được nhập vào từ bàn phím; In kết quả ra màn hình.

Answer 1

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

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

writeln('Tong cac so chan trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.