//PascalABC.NET 3.2 сборка 1318
begin
var ars:=readstring().Split;
var k:=readinteger();
ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.
Пример ввода:
было быыть будет
5
Пример вывода:
быыть
Нужно вставить оператор - while,паскаль точно не помню,но вроде бы ещё for
Всего маленьких кубиков 5⋅5⋅5=125.
По три окрашенных грани может быть только у угловых кубиков; их всего 8. По две окрашенных грани может быть только у кубиков, которые расположены на ребрах куба, но не в вершинах. На каждом ребре таких кубиков три. Ребер у куба 12, значит таких кубиков 36.
Одна закрашенная грань будет у кубиков, которые лежат на поверхности каждой из граней куба, за исключением крайних. На каждой грани таких кубиков 9. У куба 6 граней, значит таких кубиков 5⋅6=54.
<span>Полностью некрашенными остались кубики, целиком лежащие "внутри" исходного куба. Они образуют куб размером 3х3х3, и их всего 3⋅3⋅3=27. это правильный ответ</span>
1) 640 × 350 =224000 пикселей в данном изображении
2) N = 2^i
16 = 2^i
i = 4 бит - глубина кодирования одного пикселя изображения
3) 4 бита × 224000 = 896000 бит = 112000 байт = 109,375 Кбайт занимает изображение в видеопамяти ПК
В некоторых странах слишком холодно зимой, чтобы ездить на велосипедах → они там непопулярны и запросов меньше.
В других странах у людей расстояния большие → велосипед неудобен.
В третьих странах уровень дохода слишком низок. Люди пользуются преимущественно велосипедами, но денег на интернет и компьютеры у них нет, они напрямую покупают в обычных магазинах.
В четвертых уровень дохода высок и там тепло и → люди тщательно подбирают "продвинутые" модели велосипедов в интернете - запросов больше.