Используя, оператор цикла Repeat .

Question

влад12323 [6]

5 лет назад

14

Используя, оператор цикла Repeat .

. . until написать программу

Знания

Информатика

1 ответ:

KioshiKIO · Answer 1 · 2020-03-19T02:38:32+03:00

KioshiKIO5 лет назад

0 0

Const e=0.001;
var x,a,s:real; n,st,f:integer;
begin
write('x = ');
readln(x);
st:=1; f:=1; a:=x; s:=x; n:=0;
while abs(a)>e do
begin
n:=n+1;
st:=st*2;
f:=f*n;
a:=x*st/f;
s:=s+a;
end;
writeln('s = ',s:5:3);
end.

Пример:
<span>x = 1.5
s = 11.083</span>