Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Program xax;
var i:shortint;
a,b: array [-10..10] of byte;
begin
randomize;
for i:=-10 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=-10 to -1 do
b[i]:=a[-11-i];
for i:=1 to 10 do
b[i]:=a[11-i];
b[0]:=a[0];
for i:=-10 to 10 do
write(b[i],' ');
<span>end.</span>
Ответ:
128 бит
Объяснение:
1. Найдем количество пикселей в изображении
256 × 128 = 2⁸ × 2⁷ = 2¹⁵
2. Определим количество бит, приходящихся на пиксель
512 Кбайт = 2⁹ × 2¹⁰ × 2³ = 2²² бит
2²² / 2¹⁵ = 2⁷ = 128 бит - глубина кодирования цвета.
В задаче явная нелепость. Количество цветов 2¹²⁸ ≈ 3.4·10³⁸ - это безумная величина. Реальная глубина кодирования цвета обычно не превышает 32 бит, что дает 16 млн цветов и 256 градаций прозрачности.
Микрофон. (микрофона, аудиосистемы, проигрывателя оптических компакт-дисков, телевизора, видеомагнитофона, цифровой видеокамеры, электронных музыкальных инструментов и др.).