написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему:P=3*5*7*...*n
Answers & Comments
Adequate
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.
Answers & Comments
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.