Регистрация
Ликааааааааап
08.05.2020 06:59
Информатика
Есть ответ 👍

Виды информационных моделей

266
435
Посмотреть ответы 1

Ответы на вопрос:

Жекон124
Жекон124
4,6(80 оценок)

const n= 100 ;

var

a,b,x,r,c : real ;

i: integer;

begin

writeln ('введите x') ;

readln (x);

b:=1;

c:=-1;

r:=0 ;

for i:=0 to (n) do begin

a:= exp ((2*i)*ln(x));

if i = 0 then b:=1 else

b:= b*(2*i) ;

c:=c*(-1);

r:= a*c/b+r;

end;

writeln ('ответ : ',r);

end.

Объяснение:

Популярно: Информатика