1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
1045'2128 пикселей это 2.223.760 битов
2.223.760/8=277970 байтов
288970/1024=271 килобайт
Примеры перевода из десятичной СС в двоичную, восьмеричную и шестнадцатиричную СС<span>Двоичная СС (q=2). Переведем число 2310 в двоичное представление. Используя вышеизложенное правило, разделим число 23 на основание целевой СС - 2: 23/2 = 11 и 1 в остатке. Младшая цифра двоичного числа - 1. Делим 11 на 2, получаем 5 и 1 в остатке. Следующая цифра числа - тоже 1. Записываем ее слева от предыдущей цифры - 11. Далее получаем 2 и 1 в остатке, а само число - 111. Далее, 2/2 = 1 и 0 в остатке. Получилось число 0111. Последнюю единицу делим опять на 2, получаем в результате 0 (это значит, что процесс перевода закончен) и в остатке - 1. Поолучили число 10111. Таким образом, 2310=101112.</span><span>Восьмеричная СС (q=8). Перевдем десятичное число 100 в восьмеричный вид:
100/8=12 и 4 в остатке
12/8=1 и 4 в остатке
1/8=0 и 1 в остатке
Получили 10010=1448.</span><span>Шестнадцатиричная СС (q=16). Перевдем десятичное число 1000 в шестадцатиричную СС:
1000/16=62 и 8 в остатке
62/16=3 и 14 в остатке
3/16=0 и 3 в остатке
Вспомним, что цифры, большие девяти, обозначаются буквами. Цифре 14 соответствует буква E. Получили 100010=3E816.</span>
<span>Америка в 1877 году Шарлем Кро </span><span>и Томасом Эдисоном - граммафон</span>
1923 год. Джонг Мажер – Изобретение Электрофона и Калейдофона в Берлине
Магнитофон <span>в Берлине в 1935</span>