?>
1. В таблице приведены запросы к поисковому серверу. Расположите обозначения запросов в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу. Построить круги Эйлера Для обозначения логической операции ИЛИ в запросе используется символ |, а для логической операции И – символ &. 1 Франция | Испания | История 2 Франция & Карта & История 3 Франция | История 4 Франция & История ответ: ___2 4 3 1 2. Построить таблицу истинности и логическую схему для высказывания 3. Для какого из названий животных ложно высказывание: В слове 4 гласных буквы /\ ¬(Пятая буква гласная) \/ В слове 5 согласных букв? 1) Шиншилла 2 Кенгуру 3) Антилопа 4) Крокодил 4. Сколько сайтов будет найдено по запросу (принтер | сканер) & модем, если по запросу принтер | сканер было найдено 400 сайтов, по запросу принтер & модем– 20, а по запросу сканер & модем – 30? Ключевое слово Количество сайтов, для которых данное слово является ключевым сканер 200 принтер 200 модем 450 5. Упростить логическое выражение х ( y) (z у) х z.
Ответы
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
begin
writeln('I');
var n := ReadInteger('n=');
Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
end;
begin
writeln;
writeln('II');
var n := ReadInteger('n=');
Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin
writeln;
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end;
end.