Question

Дано натуральное число n. Вычислить y=2*4*6...(2n) .сделать через цикл с параметром!!!Срочно!

Answer 1

var y,i,n:integer;
begin
readln(n);
y:=1;
for i:=1 to n do
y:=y*2*i;
writeln(y);
end.

Answer 2

Var n,i,x,x1:integer;

x:=0;

y:=1;

readln(n);

For i:=1 to n do

Begin

x:=x+2;

y:=y*x;

end;

Writeln('y=', y);

readln;

end.