Напишите программный код, изображающий на экране ряд дверей, находящихся друг от друга на одинаковом расстоянии, используя цикл со счетчиком.

1. Выпишите все числа, при которых значение данных логическое выражений истинно.
А) (х>12) и не (х>15)
(72>12) & !(72>15)
1 & !1 = 0

(98>12) & !(98>15)
1 & !1 = 0

(67>12) & !(67>15)
1 & !1 = 0

(14>12) & !(14>15)
1 & !0 = 1
Выражение истинно для X=14.

Б) (X оканчивается на 5) и не (х- не двузначное число)
1)72
0 & ! !1 = 0
2)98
0 & ! !1 = 0
3)67
0 & ! !1 = 0
4)14
0 & ! !1 = 0
Выражение ложно для всех чисел

2. При каких значениях логическое выражение ложно (возможно несколько ответов).
Не ( Х – четное число) или (оканчивается на 4)

1)72
! 1 + 0 = 0 + 0 = 0

2)98
! 1 + 0 = 0

3)67
! 0 + 0 = 1 + 0 = 1

4)14
! 1 + 1 = 0 + 1 = 1

Выражение ложно для X = 72 и 98

1)uses crt;
2)var a:array[1..20,1..20] of integer;
3)n,m,i,j,mn,mx,jmn,jmx,x,y:integer;
4)begin
5)clrscr;
6)randomize;
7)write('Количество строк n=');
8)readln(n);
9)write('Количество столбцов m=');
10)readln(m);
11)writeln('Исходная матрица:');
12)for i:=1 to n do
13)begin
14) for j:=1 to m do
15)begin
16)a[i,j]:=random(20);
17)write(a[i,j]:4);
18)end;
19)writeln;
20)end;
21)for i:=1 to n do
22)begin
23)mx:=a[i,1];mn:=a[i,1];
24)jmx:=1;jmn:=1;
25)for j:=1 to m do
26)begin
27)if a[i,j]>mx then
28)begin
29)mx:=a[i,j];
30)jmx:=j;
31)end;
32)if a[i,j]<mn then
33)begin
34)mn:=a[i,j];
35)jmn:=j;
36)end;
37)end;
38)x:=a[i,1];
39)a[i,1]:=a[i,jmx];
40)a[i,jmx]:=x;
41)y:=a[i,m];
42)a[i,m]:=a[i,jmn];
43)a[i,jmn]:=y;
44)end;
45)writeln('Результат:');46)
46)for i:=1 to n do
47)begin
48)for j:=1 to m do
49)write(a[i,j]:4);
50)writeln;
51)end;
52)readln
53)end.