Сделать таблицу истинности
1) (A V B)&A
2) (A&B)VA
3)(AVB)&НЕ A
4)(A&НЕ A)&B
5)A&(BVC)
6)(A&НЕ A)&(BVC)
7)(НЕ(AVB))&(НЕA&НЕB)

пщояк 17 27 16 33 17

нщёп 15 27 7 17

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

обрамления там везде одинаковые