Постройте таблицу истинности a ∧ ¬ c ∨ c ∧ (b ∨ ¬ c) ∨ (a ∨ ¬ b) ∧ c . заранее !

Ab c = 0 0 0 0 0 1 0 0 1 1 2 0 1 0 0 3 0 1 1 1 4 1 0 0 1 5 1 0 1 1 6 1 1 0 1 7 1 1 1 1 def bin_values(in_int):       ret = []       b = bin(in_int)[2: ]       while len(b) ! = 3:               b = '0' + b       for i in b:               ret.append(bool(int(       return ret for xs in range(2**3):       a, b, c = bin_values(xs)       print(xs)       res = a and not c or c and (b or not c) or (a or not b) and c       print(int(a), int(b), int(c), int(res), "\n")

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.

 

 

 

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.