Question

сделать в паскале:
Найти Р:= 1/2*1/4*1/6*…*1/20

Answer 1

Program h;

var i:integer;

p:real;

begin

i:=0;

while i<=20 do

begin

i:=i+2;

p:=p+1/i;

end;

writeln(p);

end.