Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * ( 22/(2+1)2) * ( 32/(3+1)2) * … * (n2/(n+1)2) — Pascal(Паскаль)

procedure f(Var l:integer;Var p:real);
begin
 p:=1;
 k:=12;
  for i:=1 to l do
  begin
   p:=p*(k/((i+1)*2));
   k:=k+10;
  end;
end;

Похожие записи/страницы:

Leave a Comment

52 + = 61