Решите задачку пожалуйста 4.11 под буковкой А

Решите задачку пожалуйста 4.11 под буковкой А

Задать свой вопрос
1 ответ
Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)gt;eps do
 begin
 i:=i+1;
 f:=f*i;
 xi:=xi*x;
 an:=xi/f;
 s:=s+an;
 end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.

Пример:
0.9
s = 2.4595 e^0.9 = 2.4596
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт