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

[Xe0n]

Собственно всё условие в название, вроде ни чего сложного, но что то туплю страшно -__-

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

Заранее благодарю.

[Базиля]

*модератору на удаление*

[Xe0n]

Спасибо, но помойму неверно.
Например беру за n:=5
Программа выводит ответ 32..
Но ведь даже если умножить те данные что в условии (2*4*6) это уже 42...
Насколько я понял задачу если мы ввели переменную n:=5 то программа должна сделать следующее:
2*4*6...(2n) = 2*4*6*8*10 = 3840
... Или я что-то не правильно понял...

[Анатоль]

Базиля, ты в степень возвёл своим кодом.
нормально так
program zad1;
var i,n,y:integer;
begin
readln(n);
y:=1;
for i := 1 to n do
y := y*(y+2);
write(y);
end.

[Xe0n]

Тоже вроде что-то нето....
Ввожу n:=5 выдаёт арифметическое переполнение. Заменяю integer на longint всё равно не хватает )))

[Анатоль]

извинясь вообще я бер написал сча перепишу

[Базиля]

Да сглупил, извиняюсь, все исправил
:

program zad1;
var p,i,n,y:integer;
begin
readln(n);
y:=1;
p:=0;
for i:=1 to n do
begin
p:=p+2;
y:=y*p;
end;
writeln('y=',y);
end.

[Анатоль]

program zadacha;
var
x,y,n,i : longint;
begin
read(n);
y := 2;
x := 1;
for i := 1 to n do
begin
x := x*y;
y := y+2;
end;
write(x);
end.

[Анатоль]

ха, я не видел твоего сообщения перед отправлением, написал тоже самое. Кстати почему ты всегда пишешь integer, пиши всегда longint.

[Базиля]

Анатоль

Кстати почему ты всегда пишешь integer, пиши всегда longint.

Ты забавный
Обосновал бы что-ли