var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
ДРУГ | длина = 4 | четная
ДРУГЯ --> ДСУДЯ | Длина = 5 | нечет.
АДРУГЯ --> АЕРФГА
Ответ: АЕРФГА
Подробное решение внутри файла
Если я всё ещё могу в логику, то 8-битное число есть 8-битное представление числа. Таким образом, двоичный код (любой длины) может нести только одну единицу информации. Но я полагаю, что требудется не это. Если требуется определить максимальный объём данных, который может быть представлен 8-биным числом, то это 2^8=256. Если же количество единичных бит, то 5. Если же имеется в виду предоставляемый объём данных, то это 8 бит.Вопрос очень некорректный.
Операторы цикла while и repeat<span> используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat. Дальше решить не могу, но вот определение.</span>