"-" влияет собственно только на знак перед полученным результатом.
=
1.572864
1024×768×2=1572864
1572864 байт = 1.572864 мегабайт (10⁶ байт)
1) i=1 байт = 8 бит.
I=k*i=30*8=240 бит
2) i=8 бит = 1 байт
k=48*36*48=82944 символов
I=k*i=82944*1=82944 байт/1024= 81 КБ
R = ((2*x)/(34*a+cos(x))) + log(x)
Var
i, n: integer;
x, rez: real;
begin
readln(x, n);
for i:=1 to n do
rez:=rez+sin(i*x)
write(rez);
end.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши ниже.