Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
1.
# coding: utf-8
# Python 3.X
n = str(int(input('Число: ')))
print(n[3] + n[1:3] + n[0])
2.
# coding: utf-8
# Python 3.X
n = str(int(input('Число: ')))
print(n[0] + n[2:4])
3.
# coding: utf-8
# Python 3.X
n = str(int(input('Число: ')))
print(n[1:3])
Цифр, может быть?
для кодирования нужно 4 бита
Я не впевнений на 100%, але гадаю, що
1, 3