<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,x):=(1.65,0.7);
while x<=2.01 do begin
Write(x:3:1);
if x<1.4 then Writeln(pi*x*x-7/x/x:15:5)
else
if x=1.4 then Writeln(a*x*x*x+7*Sqrt(x):15:5)
else Writeln(Ln(x+7*Sqrt(Abs(x+a))):15:5);
x+=0.1
end
end.
<u>Пример</u>
0.7 -12.74633
0.8 -8.92688
0.9 -6.09729
1.0 -3.85841
1.1 -1.98380
1.2 -0.33722
1.3 1.16728
1.4 2.61190
1.5 2.63360
1.6 2.65461
1.7 2.67498
1.8 2.69476
1.9 2.71397
2.0 2.73264
Ответ:
количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит
20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт
Ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)