Сумма чисел

[gamer123]

Здравствуйте! Помогите пожалуйста в решении этой задачи на паскале:
"№18) Дано натуральное число n. Вычислить произведение нечетных чисел от 1 до n.".
Знаю, что решается с помощью циклов, но плохо в них разбераюсь, поэтому не знаю даже с чего начать.

[Карась]

Досаточно одного цикла For и ветвление If Then Else.
Вот толькочто спёкшийся листинг программы которая считает чётный цифры. Чтобы она считала нечётный надо вписать четыре символа
Удачи.

Var i, n, Rez : integer;

begin
Readln (n); Rez := 1;

For i := 1 To n Do Begin
If (i * 2) > n Then Break;
Rez :=  Rez * (i * 2); End;

Writeln (Rez);

Readln;
end.

И незабывайте, что число в итоге может получиться огромным и может выйти за рамки Integer.

[_Dmitry]

Вот пример из справочника, корректируйте для своей задачи.
http://delphibasics.ru/Odd.php