Вязыке запросов поискового сервера для обозначения логической операции или используется символ | а для логической операции и символ & торты|пироги - 12000 страниц торты & пироги - 6500 страниц пироги - 7700 страниц какое количество страниц (в тысячах) будет найдено по запросу торты?

Торты|Пироги - Пироги + Торты&Пироги = 12000  - 7700 + 6500  = 10800

Объяснение:

uses GraphABC;

const

 Path = 'C:\Ilya\AlgoРитмы\Sankt-Peterburg.txt';

 DisplacementX = 10;

 DisplacementY = -10;

begin

 SetWindowIsFixedSize(true);

 

 var H := Window.Height;

 

 var A := ReadAllText(Path).Replace(',', '.').ToReals();

 var StepX := Window.Width / (A.Count - 1);

 var Min := Abs(A.Min);

 var Max := A.Max() + Min;

 var B := A.Select((x, i) -> (x, Round(StepX * i), Round(H - (A[i] + Min) / Max * H))).ToList();

 

 for var i := 0 to B.Count - 2 do

 begin

   var c := Round(255 - (B[i].Item3 + B[i].Item3) * 0.5 / H * 255);

   SetPenColor(RGB(0, c, c));

   SetBrushColor(RGB(0, c, c));

   Polygon(Arr(new Point(B[i].Item2, H), new Point(B[i].Item2, B[i].Item3),

               new Point(B[i + 1].Item2, B[i + 1].Item3), new Point(B[i + 1].Item2, H)));

 end;

 SetFontColor(clBlack);

 SetBrushColor(ARGB(200, 255, 255, 255));

 for var i := 0 to B.Count - 1 do

   TextOut(B[i].Item2 + DisplacementX, B[i].Item3 + DisplacementY, FloatToStr(B[i].Item1));

end.

Круговая диаграмма

Комментарии к коду  [показать]

uses GraphABC;

const

 N = 5;

 R = 150;

 K = 0.7;

var

 A: array of integer;

 Angle: real;

begin

 SetWindowIsFixedSize(true);

 SetWindowSize(500, 500);

 var W := Window.Width div 2;

 var H := Window.Height div 2;

 

 SetLength(A, N);

 for var i := 0 to N - 1 do

   Readln(A[i]);

 

 var Sum := A.Sum();

 

 SetPenWidth(2);

 var R2 := R * K;

 for var i := 0 to N - 1 do

 begin

   var ang := Round(A[i] / Sum * 360);

   SetBrushColor(clRandom());

   Pie(W, H, R, Round(Angle), Round(Angle - ang));

   var ang2 := DegToRad(360 - Angle + ang / 2);

   SetBrushColor(clWhite);

   TextOut(Round(W + R2 * Cos(ang2)), Round(H + R2 * Sin(ang2)), Format('{0} [~{1}%]', A[i], Round(A[i] / Sum * 100)));

   Angle -= ang;

 end;

оглавление нужно? все равно напишу: Век роботов

Объяснение:

В последнее десятилетие ИИ или же искусственный интеллект стал приобретать всё больше влияние. В развитых странах потихоньку появляются или уже появились роботы. С одной стороны звучит неплохо, человек вступил в новую эпоху эволюции, но с другой стороны, как это обернётся? В первую очередь ИИ создана для того, чтобы облегчить жизнь людей, заменяя их тем что, выполняя всю работу за них. Есть много фильмов про восстания роботов. Может ли повториться один из сценариев фильма в реальности? Возможно. Эти роботы могут дать большой толчок в развитии человека, но есть и главный минус: тотальная слежка. Производители будут ставить скрытые камеры, чтобы отслеживать личную жизнь человека, что ему это не понравится. Такие действия могу привести к тоталитарному режиму по всему миру и не останется свободного пространства для людей. Они не смогут побыть наедине, поговорить лично с кем-то, ведь их всегда будет слышно и видно.

Человечество хочет побыстрее развиться во всех сферах, но стоит обдумать все последствия, и, возможно, если всё это проигнорировать, то это может обернуться к нам боком.