K
Khách

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.

30 tháng 12 2018

kết quả là 3042

30 tháng 12 2018

thank

12 tháng 3 2017

toi khong biet

7 tháng 3 2023

*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.

6 tháng 3 2023

*for..do

Program HOC24;

var T: longint;

i,X: integer;

begin

write('Nhap X: '); readln(X);

t:=1;

for i:=1 to X do if i mod 2=0 then t:=t*i;

write('T= ',t);

readln

end.

14 tháng 1 2017

nó là 0 đấy .

8 tháng 2 2017

no la 1

25 tháng 1 2016

làm thế để hỏng máy tính ak