Program p10; var a, b: integer; begin readln(a); readln(b); if (a > 8) or (b > 8) then writeln(‘ДА’) else writeln(‘НЕТ’) end. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (8, 8); (9, 6); (4, 7); (6, 6); (–9, –2); (–5, 9); (–10, 10); (6, 9); (10, 6 Сколько было запусков, при которых программа напечатала «НЕТ»?

4

Объяснение:

если (a > 8) или (b > 8)  то выводим ДА

в противном случае (иначе) выводим НЕТ

Условие или ложно (НЕТ), когда ложны (НЕТ) обе его части

(8, 8)   a = 8   b = 8

8 > 8 - НЕТ     8 > 8 - НЕТ     НЕТ или НЕТ → НЕТ

(9, 6)   a = 9   b = 6

9 > 8 - ДА     6 > 8 - НЕТ     ДА или НЕТ → ДА

(4, 7)   a = 4   b = 7

4 > 8 - НЕТ     7 > 8 - НЕТ     НЕТ или НЕТ → НЕТ

(6, 6)   a = 6   b = 6

6 > 8 - НЕТ     6 > 8 - НЕТ     НЕТ или НЕТ → НЕТ

(–9, –2)   a = –9   b = –2

–9 > 8 - НЕТ     –2 > 8 - НЕТ     НЕТ или НЕТ → НЕТ

(–5, 9)   a = –5   b = 9

–5 > 8 - НЕТ     9 > 8 - ДА     НЕТ или ДА → ДА

(–10, 10)   a = –10   b = 10

–10 > 8 - НЕТ     10 > 8 - ДА     НЕТ или ДА → ДА

(6, 9)   a = 6   b = 9

6 > 8 - НЕТ     9 > 8 - ДА     НЕТ или ДА → ДА

(10, 6)   a = 10   b = 6

10 > 8 - ДА     6 > 8 - НЕТ     ДА или НЕТ → ДА

Граф - множество вершин и ребер, соединяющих эти вершины.
Он несет информацию об элементах системы и связи между ними.
Элементы системы изображаются как вершины или узлы графа.
Отношения между ними изображаются как ребра или дуги графа.
Деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф.
Корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). Для неориентированного графа это просто выбранная нами вершина.
Ветви - это ребра дерева.
Листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев.
Надеюсь объяснил доступно.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.