// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
ArrRandom(ReadInteger('n='),-15,25).Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-9 4 2 0 23 -1 9 -9 19 5 8 16 -9 16 12
1833 будет <span>110001 111000 110011 110011
-1833 будет </span><span>101101 110001 111000 110011 110011
</span>
1. 0,7 м/б =0,00068359375 г/б
<span>2) Сколько Мбайт в 2 Гбайт = 2000 м/б
</span>
3) 1 Кбайт = __1024_ байт = __8192____бит,
4) 2 Кбайт = _2048____ байт =__16384____бит,
5) 24576 бит =__3072___байт =__3___Кбайт,
6) 512 Кбайт = __524288_ байт =___4194304__бит.
7) 1024 бита =__128__байт
8) 2048000 бит = __2000___Кб
9) 15 Кб = _15360___бит
10) 10 байт = __80__бит
{Задание а}
var
i:integer;
begin
for i := 90 downto 65 do
writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.
{Задание б}
var
i, j:integer;
begin
for i := 90 downto 65 do
begin
for j := 90 downto 65 + 90 - i do
write(chr(j), ' ');
writeln;
end;
end.
{Задание в}
var
i, j:integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
if i = j then
write(i, ' ')
else
write('0 ');
writeln;
end;
end.
И=0₁₀=0₂<span>
Д=1</span>₁₀=1₂<span>
Т=2</span>₁₀=10₂<span>
О=3</span>₁₀=11₂<span>
X=4</span>₁₀=100₂
ТИХОХОД=10 0100 1110 0111<span>₂=24E7</span>₁₆