Дано натуральное число n. Вычислить произведение первых n сомножителей: ½*3/4*5/6*…(n-1)/n.
Нужно на Паскаль.
Ответы
Ответ дал:
1
var
n,i:integer;
p:real;
begin
p:=1;
i:=2;
readln(n);
if n>1 then
begin
repeat
p:=p*(i-1)/i;
i:=i+2;
until i>n;
writeln(p);
end
else writeln('error');
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад