Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 210 * 210 = 44100 пикселей
I = 4 Kb = 4 * 1024 * 8 бит = 32768 бит
Глубина цвета 
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Ой как так!? Не может быть в файле меньше бит чем пикселей!!! Значит в условии ошибка или специальная задача на внимательность
Для наглядности посчитаем для размера 40Кб
K = 210 * 210 = 44100 пикселей
I = 40 Kb = 40 * 1024 * 8 бит = 327680 бит
Глубина цвета 
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Кол-во цветов в палитре 
цветов
Ответ: 128
А точный размер файла при этом будет = 44100 пикселей * 7 бит = 308700 бит = 37.6831054688 Кбайт
<em>program jfe3;</em>
<em>const n=10; {Это будет кол-во элементов массива}</em>
<em>var a:array [1..n] of integer; i,s:integer;</em>
<em>begin</em>
<em>for i:=1 to n do begin</em>
<em> a[i]:=random(100); {элемент выбирается случайно от 0 до 100}</em>
<em> s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}</em>
<em> end;</em>
<em>for i:=1 to n do</em>
<em>writeln(a[i],' '); {показать сам массив}</em>
<em>writeln(s); {показать сумму}</em>
<em>readln; {чтобы окно сразу не закрывалось}</em>
<em>end.</em>
<em> </em>
А)Павел. Так как высказывание истинно первая согласная или последняя
по формуле N=2 в степени i
32=2 в степени i
32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i
откуда i=5 бит
Ответ: 1 буква алфавита несет 5 бит
