Паскаль 2*4*6...(2n)

[MsJane]

1. Дано натуральное n. Вычислить y=2*4*6...(2n) (repeat)
var n,i,y:longint;
begin
write('Введите n=');
readln(n);
y:=1; i:=1 ;
repeat
if (n mod 2) =0 then
y:=i*y;
i:=i+1;
until i=2*n;
writeln(y);
readln;
end.
Что не правильно?

2. Дано натуральное число n/ ВЫчислить S=1*2+2+3+4+...+n*(n+1)...2n (while)
var n,i:integer;
s:integer;
begin
Write('n= ');
readln(n);
i:=1; s:=1;
while 2*n>=i do
begin
s:=s+s*2*i; не может дойти как написать что бы получилась эта сумма
i:=i+1;
writeln ('S: ',s);
readln;
end.

[Alex_FF]

для первой задачи (через рекурсию):

function Product(N: Integer): Integer;
begin
  if N = 1 then
  begin
    Product := 2;
    Exit;
  end;
  Product := 2 * N * Product(N - 1);
end;

var
  N: Integer;
begin
  ReadLn(N);
  WriteLn(Product(N));
  ReadLn;
end.

без рекурсии:

var
  N, Y, I: Integer;
begin
  ReadLn(N);
  Y := 1;
  I := 0;
  repeat
    Inc(I);
    Y := Y * 2 * I;
  until I = N;
  WriteLn(Y);
  ReadLn;
end.

а для второй неясно вот это: S=1*2+2+3+4+...+n*(n+1)...2n
что-то не вижу я здесь никакой закономерности...

[MsJane]

ой..1*2+2*3*4+n*(n+1)...2n

[MsJane]

Сообщение от Alex_FF

для первой задачи:

function Product(N: Integer): Integer;
begin
  if N = 1 then
  begin
    Product := 2;
    Exit;
  end;
  Product := 2 * N * Product(N - 1);
end;

var
  N: Integer;
begin
  ReadLn(N);
  WriteLn(Product(N));
  ReadLn;
end.

мне именно через repeat надо(((

[Alex_FF]

там и через repeat есть...

[MsJane]

хм..не..мне попроще надо... без функций...

[Alex_FF]

Сообщение от MsJane

хм..не..мне попроще надо... без функций...

а где вы там функции видите?

var
  N, Y, I: Integer;
begin
  ReadLn(N);
  Y := 1;
  I := 0;
  repeat
    Inc(I);
    Y := Y * 2 * I;
  until I = N;
  WriteLn(Y);
  ReadLn;
end.

???