Question

Answer 1

Đề 2: 

uses crt;

var i,t,n:integer;

begin

clrscr;

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

t:=0;

i:=0;

while i<=n do 

  begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.

Answer 2

Đề 1: 

uses crt;

var i,t,n:integer;

begin

clrscr;

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

t:=0;

i:=-1;

while i<=n do 

  begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.