Question

Написать программу вычисления произведений  в Паскаль 2*4*6*...*(2n).

ПОМОГИТЕ ПЛИЗЗЗ решить срочно 

Answer 1

через рекурсию

 

var

function Product(N: Integer): Integer;

begin

if N = 1then

begin

Product := 2;

Exit;

end;

Product := 2 * N * Product(N - 1);

end;

 

 

var

N: Integer;

begin

ReadLn(N);

WriteLn(Product(N));

ReadLn;

end.

 

без рекурсии

 

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.

Answer 2

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.