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.