Question

Viết chương trình tính tổng các số chẫn trong dãy số liên tục tục từ 1 đến N(N được nhập từ bàn phím) kết quả được ghi ra màn hình)

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

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

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

readln;

end.