1. not T + T|F xor (1=0) or (1<-1) 2. F and T xor F or (2>3) and T
3. not 1+not (0<1) xor T | (12<2)
4. (-3=-3) + F and F and (10=7)
5. F | (39=39) * (T or not T) xor T
6. 0 | F and or (0<1) xor 1
7. (78=78) ( (-3<=54) xor 0
8.0 or T xor (20>21) (T T)
9. 0 | 0 and or 1 and (15=15)
10. (3=3) or 1 +0 and T

👇

Открыть все ответы

Ответ:

mariamadaeva

02.04.2022

Локальные сети-это сети,доступные определённому кругу лиц,это может быть несколько компьютеров в одном помещении соединённых частной сетью или кабелем,пользователи которых могут обмениваться друг с другом файлами,информацией.Локальные сети часто используют в офисах где все ПК соединены друг с другом,для того чтобы меняться документами и т.д.При этом файлы доступны только пользователям лок.сети.
Глобальная сеть или интернет-это сеть в которой обьеденены Пк со всего мира.С глоб.сети люди обмениваются информацией,файлами и т.д.Только в отличие от локальной сети они доступны всем.у каждого компьютера,привязанного к глоб.сети есть свой id.Он у каждого ПК разный,что позволяет выделить его среди других.В отличие от локальной.сети,глоб.сеть используют везде в кафе,магазинах и т.д.Локальная сеть полезна в определённом кругу лиц,для частного пользования,а интернетом пользуются все.

4,8(38 оценок)

Ответ:

zippops

02.04.2022

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrInteger(30);
Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
Write('2. Мудреное среднее арифметическое ');
if s.Count=0 then Writeln(-1) else Writeln(s.Average);
Write('3. Наибольшая длина цепочки четных элементов ');
var (l,l1):=(-1,0);
foreach var t in a do
    if t.IsEven then l1+=1
    else begin
      l:=Max(l,l1);
      l1:=0
      end;
Writeln(l);
var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
Writeln('Массив после удаления элемента');
a:=a?[:k]+a?[k+1:]; a.Println;
Write('5. Второй максимум ');
a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.

Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133

4,6(54 оценок)

Это интересно:

Семейная-жизнь

11.01.2022

Как рассказать парню о беременности после случайного секса?...

Здоровье

28.05.2020

Как быстро набрать вес (для женщины): советы и рекомендации...

Дом-и-сад

10.01.2021

Как избавиться от беспорядка на кухонной полке: Правильный способ сделать подкладку...

Здоровье