Mọi người giúp mình câu này đi cần nộp gấp Viết chương trình: - Nhập vào số nguyên N - Tính tổng các số chẵn nhỏ hơn N và xuất kết quả ra màn hình.
1 câu trả lời
Program BTH;
uses crt;
var n,i,s:integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n-1 do
If i mod 2 =0 then s:=s+i;
writeln('Tong day so tren la: ',s);
readln;
end.