задача с циклами

[werturo]

требует помошь в написании программы с циклами

[Don Karleone]

ваши наработки?

[werturo]

к сожеленью их нету так как я нечего не смыслю на данный момент в паскале

[Don Karleone]

ну если я правильно понял формулу, то должно быть вот так:

var
  P: real;
  i, n: integer;
begin
  write('n = ');
  readln(n);
  P:=1;
  for i:=2 to n do
    P:=P * (2*i - 1) * (2*i + 1);
  writeln('P = ',P:1:3);
  readln;
end.

А то, что наработак своих нету, это ооооочень плохо!

var
  y1, y2, e, x: real;

begin
  write('e = ');
  readln(e);
  write('x = ');
  readln(x);
  y1:=x/2;
  y2:=0.5*(x + sqr(y1));
  while abs(y2 - y1) >= e do
      begin
          y1:=y2;
          y2:=0.5*(x + sqr(y1))
      end;
  write('Y = ',y2:1:5);
  readln;
end.

[werturo]

большое спасибо.