Question

Viết chương trình tính: S = 2+4+6+...+100

Answer 1

var i,s:integer;

begin

s:=0;

for i:=1 to 100 do

s:=s+2;

write(s);

readln;

end.

Answer 2

uses crt;

var s,i:integer;

begin

s:=0;

for i:=2 to 100 do

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

writeln('S=',s);

readln;

end.