Câu 3:
Uses crt;
Var m, n, t, i: integer;
Begin
Clrscr;
Write('Nhap m = '); readln(m);
Write('Nhap n = '); readln(n);
t:=1;
For i:=m to n do if i mod 2 = 0 then t:=t*i;
Writeln('Tich cac so chan la: ',t);
Readln
End.
Câu 4:
Uses crt;
Var m, n, t, i: integer;
Begin
Clrscr;
Write('Nhap m = '); readln(m);
Write('Nhap n = '); readln(n);
t:=1;
For i:=m to n do if i mod 2 <> 0 then t:=t*i;
Writeln('Tich cac so le la: ',t);
Readln
End.