Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Const e=0.00001;
var a,st,f,s:real; n:integer;
begin
n:=1;
st:=2; f:=1;
a:=2;
s:=2;
while abs(a)>=e do
begin
st:=2*st;
a:=st/f;
s:=s+a;
n:=n+1; f:=f*n;
end;
writeln('s=',s:7:5);
end.
Результат:
s=14.77811