Câu 1: viết chương trình nhập 2 số nguyên dương a và b rồi tính tổng của chúng nếu a và b là số chẵn hoặc tích của chúng trong trường hợp còn lại. Câu 2: lập trình nhập số nguyên N với N>10. Đếm và đưa ra màn hình trong phạm vi 1 đến N có bao nhiêu số chẵn và tính tổng các số lẻ.

Bài 1:

Program BTT;
Uses crt;
Var a,b,t: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If (a mod 2 = 0) and (b mod 2 = 0) then Write('Tong la: ',a+b);
        If (a mod 2 = 1) and (b mod 2 = 1) then Write('Tich la: ',a*b);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var n,i,d,t: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; t:=0;
        For i:=1 to n do
        Begin
                If i mod 2 = 0 then inc(d);
                If i mod 2 = 1 then t:=t+i;
        End;

        Writeln('Co ',d,' so chan');
        Write('Tong cac so le: ',t);
        Readln
End.