Ответы и объяснения

2014-03-02T11:09:12+00:00
Var i:integer;
s:real;
begin
s:=1/sqrt(2);
for i:=1 to 5 do
s+=1/sqrt(2*power(10,i));
writeln(s);
end.