М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mamariti
mamariti
23.12.2020 08:43 •  Информатика

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

👇
Ответ:

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

4,6(61 оценок)
Открыть все ответы
Ответ:
бекзат2008
бекзат2008
23.12.2020

Объяснение:

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;

4,6(84 оценок)
Ответ:
apdemyanovozaif8
apdemyanovozaif8
23.12.2020

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

Объяснение:

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

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

4,7(70 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ