Program h;
var i:integer;
p:real;
begin
i:=0;
while i<=20 do
i:=i+2;
p:=p+1/i;
end;
writeln(p);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Сделать в паскале: Найти Р:= 1/2*1/4*1/6*…*1/20
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.