Uses crt;
Var i: integer; P:int64;
Begin
Clrscr;
P:=1;
For i:=1 to 101 do
If i mod 2=1 then P:=P*i;
Writeln ('Ket qua cua P=: ',P);
Readln;
End.
*Hy vọng bạn sẽ tick và chọn làm ctr/l hay nhất cho mình ạ! Thanks trước nhớ www!!! :333
p/s: Hỏi đáp, comment giải đáp!