program bai_giai; uses crt; var n,i,kq:longint; begin clrscr; readln(n); kq:=1; for i:=1 to n do if (i mod 2) = (n mod 2) then kq:=kq*i; write(kq); readln; end.
Điều kiện (i mod 2) = (n mod 2) là xét xem là cùng chẵn hoặc cùng lẻ thì mới thực hiện nhân
program Hello; uses crt; var n,i,s:longint; begin clrscr; readln(n); s:=1; while i<=n do begin i:=i+1; if (n mod 2) = (i mod 2) then s:=s*i; end; writeln('S = ', s) end.
