1. Какая из данных логических функций является тождественно ложной?
а) ¬ A ↔ ¬ B
б) ¬ (A → (B → A))
в) ¬ A → A ∧ B
г) ¬ A → ¬ B
2. Сколько различных решений имеет уравнение ¬M ∧ K ∧ ¬N ∧ ¬J ∧ (L ∨¬L) = 0, где J, K, L, M, N – логические переменные?
3. Каково наибольшее целое положительное число X, при котором истинно высказывание:
(X• (X +1) > 55) → (X•X > 50)
5. A, B и C – целые числа, для которых истинно высказывание:
(C < A ∨ C < B) ∧ ¬ (C+1 < A) ∧ ¬ (C+1 < B) Чему равно C, если A=45 и B=18

4: 2

2|0

1|0

0|1

4₁₀=100₂

10: 2

5|0

2|1

1|0

0|1

10₁₀=1010₂

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

1996₁₀=11111001100 

100.1010.11111001100     

крик

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.