Цитата:
Сообщение от Troll
Задание:
Задан х. Вычислить 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.