sắp đến hạn nộp bt rồi huhu \ Câu 2 : Viết chương trình tính và in ra tổng các số chẵn của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím) Câu 3 : Viết chương trình tính và in ra tổng các số lẻ của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím)

Program BTT;
Uses crt;
Var i,chan,le: longint;
Begin
        Clrscr;
        chan:=0; le:=0;
        For i:=1 to 10 do
                If i mod 2 = 0 then chan:=chan+i
                Else le:=le+i;
        Writeln('Cau 2: ',chan);
        Write('Cau 3: ',le);
        Readln
End.

Câu 2:

uses crt;
var i,kq:longint;
begin
        clrscr;
        for i:=1 to 10 do
                if i mod 2 = 0 then
                        kq:=kq+i;
        write('Tong so chan tu 1 den 10: ',kq);
        readln;
end.

Câu 3:

uses crt;
var i,kq:longint;
begin
        clrscr;
        for i:=1 to 10 do
                if not i mod 2 = 0 then
                        kq:=kq+i;
        write('Tong so le tu 1 den 10: ',kq);
        readln;
end.