Сформулировать запрос с использованием логических операций («|», «&») на языке запросов поискового сервера для поиска информации о писателях Вашего Края. Продемонстрировать результаты поиска для каждой из указанной логической операции в виде скриншотов. Для выполнения задания выбрать не менее 3-х писателей Вашего Края. (Пример запроса: Лермонтов&Пушкин,Крылов& (Лермонтов|Пушкин) Также требуется приложить текстовой документ с полным ответом на поставленный вопрос с сохранением правил цитирования.

ДЗ для ВЕРЫ ВИКТОРОВНЫ:

Объяснение:

Var I, N, m: integer;

{Выводит таблицу квадратов до N числа}

Begin

Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?  

{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}

Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?

{Один раз}

For i:=1 to N do //Сколько раз выполнится цикл?

{N раз}

Begin //Зачем снова писать операторные скобки?

{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}

m:=i*I;

Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?

{Можно сделать так    -     Writeln(I:3,m:16);}

End;

End.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!№1

begin

 var a := ReadArrInteger(10);

 Println('Кол-во двухзначных, начинающихся нечетной цифрой:',

     a.Where(t -> Abs(t).InRange(10, 99) and Abs(t div 10).IsOdd).Count)

end.

№2

begin

 var a := ArrRandom(20, -100, 100);

 a.Println;

 a.Incremental((p,q)->Abs(p-q)).Max.Println

end.

Пример

-63 -2 94 93 71 43 -55 0 80 -39 -68 46 -91 -63 -47 -97 3 -59 64 -31

137

№3

begin

 var a := ReadArrInteger(10);

 Println('Сумма чисел, начинающихся на цифру 5, равна:',

     a.Where(t -> Abs(t).ToString[1]='5').Sum)

end.