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

2

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-24T10:27:08+04:00

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

2012-12-24T10:46:47+04:00

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.