Заполните таблицу истинности логических выражений: 1. Определите количество операндов ( A, B, C - три ).
2. Подсчитаем количество комбинации 0 и 1 (2³=8).
3. Определяем порядок выполнения логических операций.
4. Заполняем таблицу
190
320
Ответы на вопрос:
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.
Популярно: Информатика
-
nickartyar07.04.2020 14:00
-
glo203.07.2022 01:59
-
bbigigitovadakit14.05.2022 22:37
-
nikadey118.05.2022 14:59
-
Terbull26.05.2021 22:24
-
gerasiko31.12.2022 21:36
-
26dura30.09.2022 00:31
-
Римская128.09.2022 17:30
-
Еленаелец7724.01.2022 20:53
-
ponk4ik22877814.09.2020 06:37