ЭТО ПРОГРАММА КУБЭСИК
Перепишите команды.
Выделите ошибки в командах
(поясните, что неверно):
1. CIRCLE (204,480)/40, 16, 0, 0, 2
2. CIBCLE (244,482): 140, 10, 2*3.14, 3.14/2, 2/1
3. CIRCLE (4, 40 ),40, 1, , , 2/40
4. CIBCLE (24,482); 10, 10, 2*3.14, 3.14/2, 10/3
5. CIRCLE (204, 80), 90, 16, 3.14/2, 0
6. CIRCLE (350, 492), 140, 100, 2*3.14, 3.14/2, 20/140
7. CIRCLE (65, 80): 40, , 0, 3.14, 8/40
8. CIRCLE (240,42), 85,3/2*3.14 , , 3.14/2, 85/10
9. CILCLE (4, 40 ),40,20, , , 20/40
10. CIRCLE (50, 80), 10, 15, 2*3.14, 3.14/2,

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1. 

Var

 n:integer;

Begin

 Write('Введи число ');

 Readln(n);

 if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

 a,b:integer;

Begin

 Write('Введи числа ');

 Readln(a,b);

 if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

 n:integer;

Begin

 write('Введи двузначное число ');

 Readln(n);

 if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.

Подробнее - на - ответ:

Объяснение:

а) (А∧B)∨(C∨D)

б)¬((A∧B)∨C)

16 строк, как как 4 элемента.

а)

для удобства таблицы:

(А∧B) - 1

(C∨D) - 2

(А∧B)∨(C∨D) - 3

A   B   C   D   1   2   3

0   0   0   0   0   0  0

0   0   0   1    0   1   1

0   0   1    0   0   1   1

0   0   1    1    0   1   1

0   1   0    0   0   0  0

0   1   0    1    0   1   1

0   1   1     0   0   1   1

0   1   1     1    0   1   1

1   0   0    0   0   0  0

1   0   0    1    0   1   1

1   0   1     0   0   1   1

1   0   1     1    0   1   1

1   1   0     0   1    0  1

1   1   0     1    1    1   1

1   1   1      0   1    1   1

1   1   1      1    1    1   1

б)

для удобства таблицы:

(A∧B) - 1

(A∧B)∨C - 2

¬((A∧B)∨C) - 3

А В С 1 2 3

0 0 0 0 0 1

0 0 1  0 1  0

0 1  0 0 0 1

0 1  1  0 1  0

1  0 0 0 0 1

1  0 1  0 1  0

1  1  0 1  1  0

1  1  1  1  1  0