Библиотечные ресурсы
Архивные ресурсы
Научно-техническая информация
Правовая информация
Информация государственных (властных) структур
Отраслевая информация
Финансовая и экономическая информация
Информация о природных ресурсах
<span>Информация предприятий и учреждений</span>
V=2 кбайт
N=128
2кбайт=2048 байт=16384 бит
16384 бит:128=128 бит
N=2^i
N=2^7=128
128 символов
Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
№4
а) 1111001₂= 1×2⁰+1×2³+ 1×2⁴+ 1×2⁵+1 ×2⁶ = 1+8+16+32+64=121₁₀
б) 1000110₂=1 ×2¹+1 ×2²+1× 2⁶=2+4+64=70
№3
136₁₀= 10001000₂
136:2=68 остаток 0
68:2= 34 остаток 0
34:2= 17 остаток 0
17:2= 8 остаток 1
8:2=4 остаток 0
4:2=2 остаток 0
2:2=1 остаток 0
1:2=0 остаток 1 (остатки записываются в ответ снизу в верх)
254₁₀= 11111110₂
254:2= 127 остаток 0
127:2=63 остаток 1
63:2=31 остаток 1
31:2= 15 остаток 1
15:2=7 остаток 1
7:2=3 остаток 1
3:2 =1 остаток 1
1:2=0 остаток 1