Записать порядок команд для решения поставленной задачи Пользователь начинает работу с бесконечной электронной таблицей с выделенной автоматически самой программой текущей ячейкой. Смена текущей ячейки может произойти по одной из следующих команд пользователя: 1. Текущей ячейкой становится ячейка, у которой номер строки на единицу больше, чем у предыдущей 2. Текущей ячейкой становится ячейка, у которой номер строки на единицу меньше, чем у предыдущей 3. Текущей ячейкой становится ячейка, у которой номер столбца на единицу больше, чем у предыдущей 4. Текущей ячейкой становится ячейка, у которой номер столбца на единицу меньше, чем у предыдущей Последовательность действий, которые выполнил пользователь, такова: 4, 4, 3, 1, 1, 2, 4 (приведены соответствующиѐ номера команд Каково наименьшее возможное число команд, которое приведет к тому же результату?
Ответы
Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.
Program Sequence;
var old, new : real;
f : boolean;
beginwrite('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.