61 это 110110 110001
87 это 111000 110111
А чтобы не было проблем -
Вот ссылка: https://decodeit.ru/binary/
Закономерность количества символов:
1)1
2)3
3)7
4)15
5)15*2+1=31
6)31*2+1=63
7)63*2+1=127
Так как каждом действии концовка наших символов с 4 строки не сильно-то и изменяется, то присваиваем каждой букве число справа налево счтитая от 127 до 120
<span>7)............DCBAABA A C B A A B A A </span>
<span> 20 21 22 23 24 25 26 27 </span>
<span>Ответ: ACBA</span>
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН
Дай фотку
тогда дам ответ это очень легко
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8