Есть ответ 👍

Заполните таблицу истинности логических выражений: 1. Определите количество операндов ( A, B, C - три ).
2. Подсчитаем количество комбинации 0 и 1 (2³=8).
3. Определяем порядок выполнения логических операций.
4. Заполняем таблицу

190
320
Посмотреть ответы 1

Ответы на вопрос:

golubfrog
4,8(88 оценок)

Const       n = 30; type       array100 = array [1..100] of integer; var       a: array100;       i, t: integer;       f: boolean; procedure printarray(var a: array100); var       i: integer; begin       for i : = 1 to n do               write(a[i]: 3, ' ');       writeln; end; begin       randomize;       for i : = 1 to n do               a[i] : = random(99) - 50;                     printarray(a);             repeat               f : = true;               for i : = 1 to n - 1 do                       if (a[i] < 0) and (a[i + 1] > = 0) then begin                               f : = false;                               t : = a[i];                               a[i] : = a[i + 1];                               a[i + 1] : = t;                       end;       until f;       printarray(a);             readln; end.

Популярно: Информатика