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)>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
<span>s = 2.4595 e^0.9 = 2.4596</span>
Var
a: array[1..100] of integer;
i, n: integer;
begin
n := 50;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(60);
write(a[i], ' ');
end;
writeln();
{изменение элементов}
writeln('Новые значения:');
for i := 1 to n do
begin
if a[i] mod 4 = 0 then
a[i] := 0;
write(a[i], ' ');
end;
end.
1) Мода, конечно, Тихий океан (47 наименований).
2) Средняя цена:
fcp = (26*26 + 33* 35+ 47*28 +15*41) / (26+33+47+15) ≈ 31 руб
Var x, a : real;
begin
readln(a);
x := arctan(1/(power(E, a) + 1)) + PI;
writeln(x);
end.