Viết chương trình nhập một số nguyên dương n từ bàn phím, tính tích các số lẻ từ 1 ->số đã nhập
2 câu trả lời
uses crt;
var n, i, t : integer;
begin
clrscr;
t := 1;
write('nhap so n :');readln(n);
for i := 1 to n do
if i mod 2 <> 0 then t := t * i;
writeln('tich la :', t);
readln
end.
Program baitap;
Uses crt;
Var i,n:integer;
T:longint;
Begin
Clrscr;
T:=1;
Write('n='); Readln(n);
For i:=1 to n do
If i mod 2=1 then T:=T*i;
Writeln('Tich cac so le:',T);
Readln
End.
