<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal; var y:=x*x+11; Writeln(y)
end.
Для windows - панель управления, редактор реестра, консольные программы(sfc..)
для ubuntu - терминал
для всего - BIOS
ещё глубже - подкручивать нужные элементы на плате и менять модули
2 Кб = 2 * 1024 байта = 2 * 1024 * 8 бит = 2^14 бит
В изображении 128 * 128 = 2^14 пикселей, на всё изображение отводится 2^14 бит, значит, на один пиксель приходится i = 1 бит
Максимально возможное число цветов N = 2^i = 2.
В зависимости от качества изображения. То есть сколько цветов используется. Для кодирования черно-белого изображения используется 1 бит (то есть 1 или 0 в регистрах) , для 16 цветов - 8 бит, для 256 цветов - 16 бит и так далее. То есть переведи нужное количество цветов в двоичную систему и подсчитай количество разрядов (можно сделать с помощью стандартного калькулятора).
Const
n=15;
var
a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(50)+10;
Write(a[i]:3)
end;
Writeln;
for i:=1 to n div 2 do
begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t end;
Writeln('Результирующий массив');
for i:=1 to n do Write(a[i]:3);
Writeln;
end.
Пример
Исходный массив
25 19 47 34 22 54 52 11 40 13 25 47 29 50 58
Результирующий массив
58 50 29 47 25 13 40 11 52 54 22 34 47 19 25
