viết chương trình in ra tổng các số chẵn nhỏ hơn hoặc bằng n với n được nhập từ bàn phím

1 câu trả lời

uses crt;

var i, n, s : integer;

begin

clrscr;

s := 0;

write('nhap so n : ');readln(n);

for i := 1 to n do 

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

writeln('tong so chan : ', s);

readln

end.