Задание:
Составить программу, которая вычисляет произведение нечетных натуральных чисел от 1 до N Помогите, пожалуйста
Решение:
Var a,n,i: integer; BeginWriteln ('введи n'); Readln (n); a: =1; For i: =1 to n do beginA: =a*i; Inc (i); End; writeln ('Ответ: '); Writeln (a); End.
Знаете другой ответ?