Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var i,n,s: integer;
clrscr;
write ('nhap n: ');
s:=1;
for i:=1 to n do
if s mod 2=0 then s:=s*i;
writeln ('tich la: ',s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1988
507
1610
gì z ??