type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.
Шестнадцатиричное число отображается в двоичную систему счисления путем представления каждой шестнадцатиричной цифры в виде тетрады - группы из четырех двоичных цифр. В самой левой тетраде незначащие двоичные нули отбрасываются.
Наименьшее четырехзначное шестнадцатиричное число - это 1000(16). Его двоичная запись 0001 0000 0000 0000(2) или 1 0000 0000 0000(2).
Но по условию нулей должно быть не 12, а семь, поэтому "лишние" пять нулей заменяем единицами. Поскольку число должно быть наименьшим, единицы ставим справа: 1 0000 0001 1111(2).
Осталось заменить каждую тетраду шестнадцатиричной цифрой: 101F(16)
<u><em>Ответ:</em></u> 101F
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
Переводим число 54 (отбросив знак) в двоичную систему счисления. Получаем число 110110₂. Допустим, для представления числа отведен один байт, тогда 54₁₀ = 0011 0110₂. Это прямой код числа.
Отрицательное число может быть представлено в обратном или дополнительном коде. В обратном коде старший (левый) разряд отрицательного числа равен единице, а остальные семь разрядов прямого кода инвертируются. Получаем 1100 1001₂ В дополнительном коде еще нужно арифметически прибавить единицу. Получим 1100 1010₂
Запись в естественной форме:
10.00761 • 10⁶ = 10007610
3218.9 • 10⁻³ = 3.2189
23,66100Е+3 = 23661
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д.
Потом изобрели бумагу.
В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства.
В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) .
А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д.
В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние способы записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.