Напишите программу в Паскале, где дано натуральное число n и вычислить произведение первых n-сомножителей:
а) 1*3/2*5/3...
б) 1*1/3*1/5...
а) 1*3/2*5/3...
б) 1*1/3*1/5...
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
{1}
function f(n:integer):=(1+2*n)/(1+n);
begin
var prod:=1.0;
for var i:=0 to readinteger('n =')-1 do prod*=f(i);
write (prod);
end.
{2}
function f(n:integer):=1/(2*n+1);
begin
var prod:=1.0;
for var i:=0 to readinteger('n =')-1 do prod*=f(i);
write (prod);
end.