Если карты все разные, то для кодирования одной необходимо минимум 7 битов, т.к. 2⁷>=80.
7*80=560 битов/8 = 70 байтов
В конце XIX века Герман Холлерит в Америке изобрел счетно-перфорационные машины. Он основал фирму по производству этих машин, которая затем была преобразована в фирму IBM.
7-информационные данные;
14-жёсткий диск(возможно);
16-персональные данные;
17-очистка ненужной информации;
15-флешка;
1)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0)then
a[i] := a[i]*2
else
a[i] := a[i] - 1;
for i := 1 to n do
wirte(a[i]);