Определите значение переменных a и b после выполнения фрагмента алгоритмаa : =6*12 + 3; b: =(a div 10)+ 5; a =(b mod 10)+ 1; ​

1. картинка

2. 2) палка

Объяснение:

1.

Общий порядок действий:

1) скобки

2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию

3) И (∧) - истинно, когда оба исходных высказывания истинны

4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны

2.

(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная = 1 (истинно)

1) ирис

2) палка

3) словарь

И - истинно, когда оба исходных высказывания истинны

(Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно)

Последняя буква гласная = 1 (истинно)

Проверим правую часть (Последняя буква гласная = 1 (истинно)):

1) ирис = 0 (ложно, с - согласная буква)

2) палка = 1 (истинно, а- гласная буква)

3) словарь = 0 (ложно, ь - не гласная и не согласная буква)

Осталось всего 1 слово (палка)

Проверим левую часть ((Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно))

ИЛИ - истинно, когда любое из исходных высказываний истинно

Первая буква слова согласная = 1 (истинно)

ИЛИ

Вторая буква слова гласная = 1 (истинно)

2) палка = 1 (истинно, п - согласная буква, а - гласная буква)

1) ирис = 0 (ложно, и - гласная буква, р - согласная буква)

3) словарь = 1 (истинно, с - согласная буква, л - согласная буква)

Слово палка подходит и под левую часть

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9