Question

[Phạm Anh Thư]

Viết chương trình tính tổng sau: s=2+4+6+8+...+n

Answer 1

[Nguyễn acc 2]

refer:

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=0 to n do

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

writeln('S=',s);

readln;

end.