Задача на Pascal. Дано натуральное число n вычислить y=2*4*6...(2n)

[Xe0n]

Во, последний вариант рабочий, всем спасибо.

[Анатоль]

В таких задачах нету ограничения на память, а значения могут получаться довольно большие. значит нет смысла на экономию памяти.

[Ann78]

Помогите решить задачи!
1.Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка 10 заменить нулями.
2.В данной действительности матрице размера n×m (n≥3, m≥3) поменять местами: а) строку с номерами 2n n-1;
3.Дано действительное число х. Получить квадратную матрицу порядка 10:
1 х . . . х8 х9
х 0 . . . 0 х8
.
.
х8 0 . . . 0 х
х9 х8 . . . х 1 (середина заполняется нулями)

[Миксфайтер]

дано натуральное n.вычислить у=1*3*5x....x(2n-1) нужно решить двумя циклами циклом для каждого и циклом пока!!!помогите плиз!!!

[Mad_Cat]

y:=1;
for i:=1 to n-1 do
if odd(i) then y:=y*i;

i:=1;
y:=1;
repeat
y:=y*i;
i:= i+2;
until i<n;

i:=1;y:=1;
while i<n do
begin 
y:=y*i;i:=i+2;
end;