N = P*r, r = log2(I)
N - объем памяти
P - пиксели
r - разрешение
I - количество цветов
<span>все переменные в битах
r = log2(2)
N = 640*200*r = 640*200=128000 бит
</span>
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
Http://inflib.ru/index2.php?id=1128&Itemid=25&option=com_content&page=0&pop=1&task=view
Надеюсь, решила правильно