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.