Офигеть, мы в 7 в пэинте до сих пор рисуем, да таблицы в ворде вставляем
1)1110*101=112110
2)112110+1101=113211
3)113211\%111=1019,9189
4)1019,9189-1011=8,9189
<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := (Random(4, 10), Random(4, 10));
Writeln('*** Исходный массив ***');
var a := MatrRandomReal(m, n, -99, 99);
a.Println(8, 3);
Writeln('*** Полученный массив ***');
a.SwapCols(1, a.ColCount - 1);
a.Println(8, 3)
end.
Каждый бит дает увеличение количества кодируемых знаков в 2 раза.
Известно, что с помощью 16-битного кода UTF-8 можно закодировать 2^16 = 65536 знаков, этого достаточно для всех основных алфавитов, включая китайские и японские иероглифы.
<span>Если добавить 17-ый бит, то можно закодировать 131072 знаков.</span>