Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
№ 1. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 16 различных цветов? 4 бита
№ 2. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 2 различных цвета? 1 бит
№ 3. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 256 различных цветов? 8 бит
№ 4. Скольких различных цветов могут быть пиксели неупакованного растрового изображения, имеющего размер 128 х 4096 пикселей и занимающего на диске 448 килобайт? 128
№ 5. Скольких различных цветов могут быть пиксели неупакованного растрового изображения, имеющего размер 128 х 512 пикселей и занимающего на диске 24 килобайта? 3 цвета - RGB красный, зеленый, голубой
Для числа 3.
(3 > 1)=1(истина))
(3 > 2)=1(истина)
(3 = 3) = 1(истина)
1 ∧ 1 ∧ 1 = 1 * 1 * 1 = 1(истина)
If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным