Question

viết đoạn chương trình tính tổng các số chẵn từ 1 - n(gợi ý: cho vòng lặp for có biến đếm i chạy từ 1-n, kiểm tra biến i là số chẵn khi i chia hết cho 2)

Answer 1

t:=0;

for i:=1 to n do 

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

Answer 2

Chương trình đầy đủ: 

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(t);

readln;

end.