viết chương trình tính tích các số chia hết cho 2 nhưng không chia hết cho 3 từ 1 đến N, với N nhập từ bàn phím (pascal).
2 câu trả lời
uses crt;
var n,i,p:longint;
begin
clrscr;
readln(n);
p:=1;
for i:=1 to n do
if (i mod 2=0) and (i mod 3<>0) then p:=p*i;
writeln(p);
readln
end.
