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

Составить программу,которая вычисляет произведение нечетных натуральных чисел от 1 до N Помогите ,пожалуйста:))
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы