Bài 8. Lặp với số lần chưa biết trước

VE

Viết chương trình tính tích n.1.3.5.7. ... .n, n là số tự nhiên nhập từ bàn phím( Dùng While... do)

Mik rất rất cần gấp!!!

Thanks a lot :)

ML
30 tháng 5 2020 lúc 11:21

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n='); readln(n);

t:=1; i:=1;

while i<n do

begin

if i mod 2=1 then t:=t*i;

i:=i+1;

end;

write(t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
TA
Xem chi tiết
H24
Xem chi tiết
PT
Xem chi tiết
DT
Xem chi tiết
NV
Xem chi tiết
TT
Xem chi tiết
TH
Xem chi tiết
NT
Xem chi tiết
H24
Xem chi tiết