Завтра зачет

[Troll]

Завтра зачет

Задание:
Задан х. Вычислить y= E x в степени 2n-1/ n! Е - сумма, где n=1 to 12.
За ранее огромное спасибо!

 

[morfeus]

Не дублируйте пожалуйста темы, пишите в одной...Подождите, Вам ответят.

 

[Troll]

Так это две разные задачи.

 

[morfeus]

Ок, не обратил внимание на то, что они разные, извините. Но все равно, можно было создать одну тему, а не набивать их несколько: например задачи под пунктами 1, 2, 3...

 

[Troll]

На разных форумах по-разному, где-то пишут одна задача - одна тема,я так подумал будет лучше, прошу прощения, если что-то не так, я только начинаю общине на форуме.

 

[Vladimir_S]

Задание:
Задан х. Вычислить y= E x в степени 2n-1/ n! Е - сумма, где n=1 to 12.
За ранее огромное спасибо!

VAR
 a,S,x:REAL;
 n:INTEGER;
Begin
 Write('x= ');
 ReadLn(x);
 a:=x;
 S:=a;
 For n:=2 to 12 do
  begin
   a:=a*SQR(x)/n;
   S:=S+a;
  end;
 WriteLn('S= ',S);
 ReadLn;
End.