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

Втаблице запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. расположите коды запросов слева направо в порядке убывания количества страниц, которые найдёт поисковый сервер по каждому запросу. для обозначения логической операции «или» в запросе используется символ |, а для логической операции «и» – & . код за запрос а (муха & денежка) | самовар б муха & денежка & базар & самовар в муха | денежка | самовар г муха & денежка & самовар

👇
Ответ:

В Муха | Денежка | Самовар

А (Муха & Денежка) | Самовар

Г Муха & Денежка & Самовар

Б Муха & Денежка & Базар & Самовар

4,4(95 оценок)
Ответ:
Luiza211
Luiza211
02.01.2021

В) Муха | Денежка | Самовар

Г) Муха & Денежка & Самовар

Б) Муха & Денежка & Базар & Самовар

А) (Муха & Денежка) | Самовар

4,8(33 оценок)
Открыть все ответы
Ответ:
rafaelkhasanov
rafaelkhasanov
02.01.2021
Var
    x1, x2, x3, x4, y1, y2, y3, y4: real;

function VectorLength(x1, y1, x2, y2: real): real;
begin
    VectorLength := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;

function VectorSlope(x1, y1, x2, y2: real): real;
begin
    VectorSlope := (y1 - y2) / (x1 - x2);
end;

begin
    readln(x1, y1);
    readln(x2, y2);
    readln(x3, y3);
    readln(x4, y4);
    
    if (VectorLength(x1, y1, x2, y2) = VectorLength(x4, y4, x3, y3))
    and (VectorSlope(x1, y1, x2, y2) = VectorSlope(x4, y4, x3, y3)) then
        writeln('Yes')
    else writeln('No');
end.
4,4(82 оценок)
Ответ:
sonyabush12345
sonyabush12345
02.01.2021
//PascalABC.NET 3.1 сборка 1200
var
    a, b, c, d, x: real;
    x2: array[1..2]of real;
    i: integer;

begin
    readln(a, b, c);
    d := b * b - 4 * a * c;
    if d < 0 then begin
        writeln('Сложные комплексные корни');
        halt;
    end;
    
    d := sqrt(d);
    x2[1] := (-b + d) / 2 / a;
    x2[2] := (-b - d) / 2 / a;
    
    for i := 1 to 2 do
    begin
        x := sqrt(abs(x2[i]));
        if x2[i] >= 0 then
            writeln('x[', 2 * i - 1, '] = ', x, ' x[', 2 * i, '] = ', -x)
        else
            writeln('x[', 2 * i - 1, '] = ', x, 'i x[', 2 * i, '] = ', -x, 'i');
    end;
end.
4,7(27 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ