Либо перезагрузи либо переустанови WINDOWS
F = !B & ( A + !(A&B) ) = !B & (A + !A + !B) = !B & (1+!B)= !B
{ т.к. !(A&B) = !A + !B }
F = !(A&B) + A&!B + A&B + B&C = !A + !B + A + B&C = !B + B&C
{ т.к. !(A&B) = !A + !B, A&!B + A&B = A&(!B+B) = A }
F = !(A&B + B&C) + C&!A = (A&B + B&C) & !(C&!A) =
= (A&B + B&C) & (!C+A) = B&(A+C)&(A+!C) = B & A
{ т.к. (A+C)&(A+!C) = AA + A!C + CA + C!C = A + A(!C+C)+0 = A + A = A }
<u>// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var (w,h):=(800,600); // размер графического окна
SetWindowSize(w,h);
var (xc,yc):=(w div 2,h div 2); // координаты центра
var R:=h-yc-20; // радиус описанной окружности
var n:=ReadInteger('Количество сторон n =');
Window.Clear;
Pen.Width:=5;
Pen.Color:=clRed;
var P:=new Point[n];
for var i:=0 to n-1 do begin
var arg:=2*Pi*i/n-Pi/2;
P[i].X:=Trunc(xc+R*cos(arg));
P[i].Y:=Trunc(yc+R*sin(arg))
end;
DrawPolygon(P);
end.
1)
2*60=120 байт в строке
120*40=4800 байт на старнице
4800*1500= 7 200 000 байт=7.2 Мбайт во всей книге
2)
60*40=2400 байт
2400*150=360 000 байт =360 Кбайт=0.36 Мбайт
3)
128 Кбайт= 128 000 байт
128 000\ 2=64 000 символов
4)
1.5 Кбайт=1536 байт
1536*8=12288
12288\3072=4 бит
5)
в 1 Мбайте 1572864 байт
1572864\512=3072 байта=24 576 бит размер сообщения
24 576\2048=12 бит - размер одного символа
6)
8 бит = 1 байт
48*1=48 байт в строке
48*40=1920 байт в странице
1920*8= 15 360 байт в рассказе
15 360 байт= 15 Кбайт
Program Test;
var A, B, C, S, K: byte;
begin
ReadLn(A, B, C);
S := ((A * C) * 2) + ((B * C) * 2);
K := S div 8;
if (k mod 10) > 0 then
begin Inc(K);WriteLn('Потребуется купить ', K, ' банок краски');
end;
if (k mod 10) < 0 then WriteLn('Потребуется купить ', K, ' банок краски');
end.