1. флейта - не струнный инструмент
2.рикша - на ней не передвигаются по воде
3. Тургенев- не композитор
4.Нью-Йорк - не столица
5.офис - в нем не живут (не должны, по крайней мере)
6.Нил - не в Европе
7. торф - не минерал
8. самой интересно)))
А общий признак - от обратного.
Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
Для кодирования одной из 128 букв необходимо log(2)128 = 7 бит (2^7=128).
Просто выполняем алгоритм для каждой из клеток.
Например, 4 клетка в пятом ряду: у неё сверху стенка, поэтому она двигается вправо, оттуда опять вправо, оттуда еще раз вправо и врезается в стенку после 6-й клетки.
4 клетка в третьем ряду: у ней сверху нет стенки, снизу есть, поэтому робот движется влево. Затем снизу нет стенки, а сверху есть, поэтому робот возвращается обратно, и всё повторяется.
6 клетка во втором ряду: у неё ни сверху, ни снизу нет стенок, поэтому она стоит на месте.
Клетки, начав с которых, робот разбивается помечены персиковым цветом, в них указано, о какую стенку он разбивается. Клетки, начав с которых, робот делает конечное число шагов, отмечены бледно-оранжевым цветом, в них указано, в какой клетке остановится робот. Зелёные клетки удовлетворяют условию, их на рисунке 6.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='1 января 2004 года';
s.MatchValues('\d+').Select(w->w.ToInteger).Sum.Println;
end.
<u>Результат</u>
2005