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