Напишите пожайлуста программу вычисления произведения

16.02.2013, 13:42. **Показов** 1307. **Ответов** 1

Напишите пожайлуста программу вычисления произведения:
2 * 4 * 6 * ... * (2n)

@SHMS · 16.02.2013, 13:55

Pascal

Program z;
var
n,p,i,j:integer;
begin
writeln('введите n');
readln(n);
i:=2;
p:=1;
for j:=1 to n do begin
p:=p*i;
i:=i+2;
end;
writeln(p);
end.

Зайка1996
		1
	Напишите пожайлуста программу вычисления произведения 16.02.2013, 13:42. Показов 1307. Ответов 1 Метки нет (Все метки) Напишите пожайлуста программу вычисления произведения: 2 * 4 * 6 * ... * (2n)

	16.02.2013, 13:55

Решение