Такие записи есть: 7, 8
Запись на <14:00 – 1, 2, 3, 4, 5, 6
Запись на > «Пятница» – 6, 7, 8
Ответ: 1) 7, 8
________________
БУДУ БЛАГОДАРЕН ЗА ВЫБОР 'КАК ЛУЧШИЙ'
Ответ:
128 бит
Объяснение:
1. Найдем количество пикселей в изображении
256 × 128 = 2⁸ × 2⁷ = 2¹⁵
2. Определим количество бит, приходящихся на пиксель
512 Кбайт = 2⁹ × 2¹⁰ × 2³ = 2²² бит
2²² / 2¹⁵ = 2⁷ = 128 бит - глубина кодирования цвета.
В задаче явная нелепость. Количество цветов 2¹²⁸ ≈ 3.4·10³⁸ - это безумная величина. Реальная глубина кодирования цвета обычно не превышает 32 бит, что дает 16 млн цветов и 256 градаций прозрачности.
Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
