Ответы
Ответ дал:
0
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.
Похожие вопросы
1 год назад
7 лет назад
7 лет назад
9 лет назад