I1/I2= K 1i / K 2i. K сокращаем 1i / 2i 4/8= 2. (Большое на меньшее делить надо) В два раза кол-во инфооиации во втором тексте больше, чем в первом
Татьяна1856
29.10.2020
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var a:=ReadlnString('->').ToWords; a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]). ThenBy(x->x[0]).Select(x->x[0]).Println end.
Пример -> Карл у Клары украл кораллы Клара у Карла украла кларнет кларнет кораллы украла Карла Клара Клары украл Карл у у
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var s1:=''; var s2:=''; var s:=ReadlnString('->'); var p:integer; for var i:=1 to s.Length do begin p:=pos(s[i],s1); if p>0 then s[i]:=s2[p] end; Writeln(s) end.
Лупа расширяет размер пикселя,увеличивая объект.