Question

Составить программу,которая вычисляет произведение нечетных натуральных чисел от 1 до N Помогите ,пожалуйста:))

Answer 1

Var a,n,i:integer;
Begin
Writeln('введи n');
Readln(n);
a:=1;
For i:=1 to n do begin
A:=a*i;
Inc(i);
End;

writeln('Ответ: ');
Writeln(a);
End.

Answer 2

program c1;

var

i,n:integer;

x:longint;

begin

x:=1;

write('Введите n: ');

readln(n);

for i:=1 to n do

if (i mod 2=1) then x:=x*i;

writeln(x);

end.