(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 800 * 600 = 480000 пикселей
i = 16 бит
I - ?
Решение:
I = K * i = 480000 * 16 = 7680000 бит
7680000.0 бит = 960000.0 байт = 937.5 Кбайт
<span>var </span><span> a,b,c,D,x1,x2:real; </span>
<span>begin</span>
<span>readln(a,b,c);</span>
<span>D:=b*b-4*a*c;</span>
<span>if D<0 </span><span>then Writeln('Только комплексные корни')</span>
<span>else </span>
<span>begin</span>
<span>d:=sqrt(d);</span>
<span>x1:=(-b+d)/(2*a);</span>
<span>x2:=(-b-d)/(2*a);</span>
<span>WriteLn('x1=',x1);</span>
<span>WriteLn('x2=',x2);</span>
<span>end; </span>
<span>end.</span>
123456-654321 я думаю так
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так
Устройство хранения программ и данных это память