// PascalABC.NET
// количество знаков - произвольное!
function HexDigitToBin(Self: char): string; extensionmethod;
begin
var bd: array of string := ('0000', '0001', '0010', '0011',
'0100', '0101', '0110', '0111', '1000', '1001', '1010',
'1011', '1100', '1101', '1110', '1111');
var hd := '0123456789ABCDEF';
var i := Pos(Self.ToUpper, hd);
Result := if i > 0 then bd[i - 1] else '****'
end;
function Bin4ToOct(Self: string): char; extensionmethod;
begin
var od: array of string := ('000', '001', '010', '011',
'100', '101', '110', '111');
var i := od.FindIndex(p -> p = Self);
Result := if i < 0 then '*' else i.ToString.First
end;
function HexToOct(Self: string): string; extensionmethod;
begin
var t := '';
foreach var c in Self do
t += c.HexDigitToBin;
var L := t.Length;
t := '0' * ((3 - L mod 3) mod 3) + t;
L := t.Length;
var n := L div 3;
Result := '';
for var i := 0 to n - 1 do
Result += t[3 * i + 1: 3 * i + 4].Bin4ToOct;
end;
begin
var x16 := ReadString('Введите 16-ричное число:');
var x8 := x16.HexToOct;
x8.Print
end.
1) А)
2) Ж), И)
3) Мобильные носители на основе флэш-памяти: USB флэшки, карты памяти различных форматов.
Мобильные жёсткие диски с интерфейсом USB.
Оптические диски — Blu-Ray, реже DVD, почти не встречаются CD.
Внутренние жёсткие диски компьютеров, внутренние твердотельные диски SSD.
Бумажные носители: книги, тетради, дневники, блокноты и др.
Перечислены встречающиеся в настоящее время носители информации.
4) А), Б), В), Г), Д), Е), З), И)
5) Изменение шрифта
Изменение начертания
Изменение цвета
Поиск и замена (если речь о формате текста, а не о содержимом документа)
Выравнивание
Остальное - это редактирование документа.
6) При форматировании текстового документа происходит - А
При разработке плана действий происходит - Б
Тополь-поглощает углекислый газ
Объяснение:
Так как тополь-это дерево а многие деревья поглощают углекислый газ и выдают кислород,которым мы дышим.