Пусть нам дано, что значение переменных а=5, b=-2. определи, истинно (в этом случае ставь ответ - да) или ложно (в этом случае отметь высказывание словом нет) каждое из высказываний. 1. (a < 10) или (b < 10) да нет 2. (а - нечётное) или (не(b - чётное)) да нет 3. не((a > 10) или (b < 10)) да нет 4. (а - нечётное) и (не(b - нечётное)) да нет 5. не(а - чётное) и (b - отрицательное) да нет 6. не(а - чётное) и (b - нечётное) да нет

1. да
2. да
3. нет
4. да
5. да
6. нет

1. Да
2. Да
3. Нет
4. Да
5. Да
6. Нет

1)  письмо-то было иероглифическое. чтобы выучить все иероглифы, нужно было обладать недюжинным терпением, хорошей памятью. а это как раз свойственно мудрым людям.

2)  основными предметами в школе были письмо, грамота и счет, обучали гимнастическим , плаванию и хорошим манерам.

3)сначала писали на черепках глиняной посуды. когда ученик овладевал письмом, ему давали для письма папирус. писали тонкой тростниковой палочкой, используя черную и красную краски. 

4) профессия писца считалась престижной и доходной, они были частью двора фараонов и освобождались от уплаты налогов, службы в армии и какой бы то ни было работы.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var lvl:=0;
  var s:= '';
  var predE:=false;
  foreach var c in s do
    if c='E' then begin
      if predE then begin predE:=false; lvl+=1 end
      else predE:=true
      end
    else
      if c='B' then begin predE:=false; lvl+=1 end;
  Writeln(lvl,' level')
end.

Результат выполнения программы
63 level

И второй вариант, "как не учат в школе":

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var s:= '';
  Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level')
end.

Результат выполнения аналогичный.