В некоторых странах слишком холодно зимой, чтобы ездить на велосипедах → они там непопулярны и запросов меньше.
В других странах у людей расстояния большие → велосипед неудобен.
В третьих странах уровень дохода слишком низок. Люди пользуются преимущественно велосипедами, но денег на интернет и компьютеры у них нет, они напрямую покупают в обычных магазинах.
В четвертых уровень дохода высок и там тепло и → люди тщательно подбирают "продвинутые" модели велосипедов в интернете - запросов больше.
Всего 294 символа в тексте. Как правило 1 символ = 8 бит.
соответственно - 294*8=2352 бита.
Запись алгоритма в виде блок-схемы более наглядная и компактная.
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
<u>Пример</u>
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение