Question

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

Answer 1

Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.