Question

Answer 1

Tham khảo:

Var i,S:integer;

Begin

i:=0;

While i<=100 do If i mod 2 = 0 then S:= S+i;

Writeln(' tong cac so chan :',S);

Readln;

end.

Answer 2

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do

 begin

i:=i+1;

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

end;

writeln(s);

readln;

end.