Написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему:P=3*5*7*...*n
Program asd; USES crt; var a,n,p,i:integer; BEGIN Clrscr; Writeln('Vvedite kol-vo ryada: '); Readln(n); p:=1; For i:=1 to n do begin p:=p*i; end; Writeln('Proisvedenie ryada: ',p); Readln; END.