Ответ: 3
Объяснение: Допустим, 123. Всё неправильно. Тогда 312. Если опять не сошлось, то остаётся только 231.
Всегда, когда щелкнут по флажку, повторить..., когда я получу, передать сообщение, касается...,
идти 10 шагов, повернуться в направлении, скрыть переменную, показать переменную, когда клавиша... нажата.
ОТВЕТ
вроде так
var x, y:real;
begin
read(x, y);
if ((x > 2) and (y < 7*(1 - x/6)) and (y > (5*x - 22)/3)) then
writeln('Принадлежит')
else
writeln('Не принадлежит')
end.
На каждом шаге имеет смысл менять два горшка с разными цветами. Поэтому всё получится, если роз, стоящих на чётных местах, будет столько же, сколько и фиалок на нечётных. При этом если тех и других k, то всего нужно k перестановок.
Код (PascalABC.NET 3.2):
begin
var n := ReadInteger();
var roses := new integer[n];
var count_roses := 0;
var violets := new integer[n];
var count_violets := 0;
for var i := 1 to n do
begin
if ReadInteger() = i mod 2 then
if i mod 2 = 0 then
begin
roses[count_roses] := i;
inc(count_roses);
end
else
begin
violets[count_violets] := i;
inc(count_violets);
end;
end;
if count_roses = count_violets then
begin
writeln(count_roses);
for var i := 0 to count_roses - 1 do
println(roses[i], violets[i]);
end
else
write(-1)
end.
Лови. вроде, легко. что тут думать?)
заранее спасибо за лайки.