Есть такой алгоритм: из числа после to вычитаем число - счетчик и прибавляем один, получается количество повторов. Он работает всегда, например, цикл for i:=5 to 14 do. Получается так: 14 - 5 + 1 = 10. Цикл выполнится 10 раз.
В твоем случае получается так: 57 - 1 + 1 = 57.
Исходя из законов логики мы имеем дело с операцией с константой. Значит
1. A & 1= A
2. ¬A & 1 = ¬A
3. 0 & 1 = 0
4. 1 & 1 = 1
Будем сравнивать в десятичной системе, для начала переведём все числа и сравним
1)************
1101 = 1*2^3 + 1*2^2 + 0*2^1 + 1*2^0 = 13
D = это 13 по порядку
13 = 13
значит 1101 = D
2)************
0.11111 = 1*2^-1 + 1*2^-2 + 1*2^-3 + 1*2^-4 + 1*2^-5 = 0.96875
0.22 = 2*8^-1 + 2*8^-2 = 0.28125
0.96875 > 0.28125
значит 0.11111 (2) > 0.22 (8)
3)***********
35.63 (8) = 3*8^1 + 5*8^0 +6*8^-1 + 3*8^-2 = 29.796875
16C (16) = 1*16^2 + 6*16^1 + 12*16^0 = 364
29.796875 < 364
значит 35.63 (8) < 16C (16)
<span>Галактики являются, а вселенная - нет. Ведь нет границ у вселенной</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф