<span>АНКЛАН, в переводе с чукотского - это просто "люди", а пасти оленей в тундру - чауча "люди, у которых есть олени" (отсюда и пошло название чукча) .</span>
6
закрасить
нц 3 раза
влево; закрасить
кц
нц 4 раза
вниз; закрасить
кц
нц 2 раза
вправо; закрасить
кц
нц 2 раза
вверх; закрвсить
кц
влево; закрасить
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 час - a деталей, то за 8 часов:
d=8*a
Так как в коробке всего 31 шар, а дано 12 красных и 17 желтых, то мы можем найти количество шаров, цвет которых мы точно знаем(12+17=29). 29 меньше, чем 31, значит, цвет еще двух шаров мы узнать не можем, т.е они могут быть любого цвета. И, так как 29<31, ошибки в условии задачи нет(цвет двух оставшихся шаров просто не дан)