2x4x6x......x78
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
*while..do
Program HOC24;
var T: longint;
i,X: integer;
begin
write('Nhap X: '); readln(X);
i:=2; t:=1;
while i<=X do
begin
t:=t*i;
i:=i+2;
end;
write('T= ',t);
readln
end.