20 . 1. чему будут равны переменные а и в после выполнения фрагмента программы: a: = 0.5; b: = -1.7 if a 2.найти значение величины с после выполнения фрагмента программы: if b> =6 then c: = 5 else c: =12, если b = 16. 3. какое значение примет логическое выражение (x> 1) and (x< 5) при x = 5. 4.какое значение примет логическое выражение (nmod 2 = 0) or (abs(n) > 35) при n = 45. 5. записать логическое выражение для неравенства: x \leq 2(х меньше либо равно 2) или x> 15 желательно с пояснением ( типа: иф,

1.
A = 0,5; B = -1,7;
Так как A больше B, то идем по ветке "else":
B = A;
B = 0,5.

ответ: A = 0,5; B = 0,5.

2. Так как "6" больше "16", то идем по ветке "then":
C = 5.

ответ: 5.

3. Если между выражениями стоит "and", то они оба должны выполняться (1), если хоть одно из них ложно, то программа выдаст "ложь" (0).

При x = 5 первое выражение будет истинным, но во втором ложным, т.к. пять не больше пяти. Две скобки не истинны - значение выражения "ложь" (0).

ответ: 0.

4. mod - остаток от деления.
abs - модуль числа.

Если между выражениями стоит "or", то при одной или двух истинных выражениях программа на выходе дает "истину" (1). Если обе скобки ложны, то программа возвращает "ложь" (0).

При делении 45 на 2, остатком от деления является 1, а не 0. Скобка считается ложной.

При abs (45) число вправду больше 35, начит скобка истинна.

В итоге логическое выражение принимает значение "1".

ответ: 1.

5. (x <= 2) or (x > 15).
Or - или.

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.