Так как 8 и 16 являются целыми степенями 2, то для перевода из двоичной системы в восьмеричную и шестнадцатеричную нужно сгруппировать двоичные цифры по 3 или 4 соответственно (в триады и тетрады), и каждая группа будет обозначать ровно одну цифру новой системы. Точно так же для перевода из десятичной в "сторичную" цифры группировались бы по две. В случае нехватки цифр слева можно добавлять нули.
var a:array[1..10] of integer;
i,tmp:integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
if i mod 2 = 1 then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
end;
for i:=1 to 10 do
write(a[i], ' ');
end.
1) Щелчке правой кнопки мыши по экрану рабочего стола.
2) Наведите курсор на слово "создать", в всплывающем окне.
3) Щелкните на "папку" (левая кнопка мыши).
4) Создаться папка "новая папка."
5) Введите название папки.
6) Нажмите enter.
7) Откройте "мой компьютер" (пуск, мой компьютер).
8) Сделайте "мой компьютер" на пол экрана (вверху справа)
9) Перетащите папку в диск С.
N=2^i.i=5.Каждый символ кодируется 5 битами.7*40*50*5=70000(бит)=8750(байт)=8,5(Кбайт).