(а или с) и (а или не с) и (не в или с) логическое выражение

Используя закон склеивания получаем (avc)^(av-c)^(-bvc) = a^(-bvc) p.s.  (avc)^(av-c)=a

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.

Объяснение:

var a,b,x,y,z:real;

begin;

clrscr;

write('vvedite dlinu kirpicha ');

readln(x);

write('vvedite shirinu kirpicha ');

readln(y);

write('vvedite visotu kirpicha ');

readln(z);

write('vvedite dlinu otverstiya ');

readln(a);

write('vvedite shirinu otverstiya ');

readln(b);

if (x<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (x<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (z<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (y<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (x<=b) then writeln('kirpich vmeshaetsya v otverstie') else begin

if (z<=a) and (y<=b) then writeln('kirpich vmeshaetsya v otverstie') else

write('kirpich ne vmeshaetsya v otverstie') end end end end end;

 

 

end.