Составить программу,которая вычисляет...

MaRkMaN · 4 янв 2010

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

dimyshek · 4 янв 2010

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.