//Новая версия с "Поехавшей анимацией..."
uses GraphABC;
var
x, y, i, j, k, p, a: integer;
begin
x := 400;
y := 150;
Window.Init(0, 0, 1280, 720, clwhite);
Window.IsFixedSize := true;
Pen.Width := 4;
Pen.Color := clSaddleBrown;
for a := 1 to 5 do
begin
x := x + 80;
line(x, y, x, y + 400);
line(x + 75, y, x + 75, y + 400);
line(x, y + 400, x + 75, y + 400);
for i := 3 to 72 do
begin
for j := 2 to 397 do
begin
setpixel(x + i, y + j, clBurlyWood);
end;
end;
p := 1;
for i := 3 to 36 do
begin
for j := 1 to 50 do
begin
if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p + 1;
end;
p := 38;
for i := 36 to 72 do
begin
for j := 1 to 50 do
begin
if(j <= p) then setpixel(x + i, y - j + 2, clBurlyWood);
end;
p := p - 1;
if(j mod 15 = 0) then p := p - 1;
end;
Pen.Width := 5;
line(x, y, x + 38, y - 38);
line(x + 75, y, x + 38, y - 38);
Pen.Width := 4;
end;
end.
Дизъюнкция логическое или V
1010₂ * 10111₂ = 11100110₂
1) 1010₂ = 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 8 + 2 = 10
2) 10111₂ = 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 16 + 4 + 2 + 1 = 23
3) 10 * 23 = 230 4) 230 = 11100110₂ 230 / 2 = 115 (ост. 0) / 2 = 57 (ост. 1) / 2 = 28 (ост. 1) / 2 = 14 (ост. 0) / 2 = 7 (ост. 0) / 2 = 3 (ост. 1) / 2 = 1 (ост. 1)
101010₂ - 1111₂ = 11011₂
1) 101010₂ = 1 * 2⁵ + 0 * 2⁴ + 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 32 + 8 + 2 = 2423
2) 1111₂ = 1 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 8 + 4 + 2 + 1 = 15
3) 42 - 15 = 27 4) 27 = 11011₂ 27 / 2 = 13 (ост. 1) / 2 = 6 (ост. 1) / 2 = 3 (ост. 0) / 2 = 1 (ост. 1)
4567₈ + 654₈ = 5443₈
1) 4567₈ = 4 * 8³ + 5 * 8² + 6 * 8¹ + 7 * 8⁰ = 2048 + 320 + 48 + 7 = 2423
2) 654₈ = 6 * 8² + 5 * 8¹ + 4 * 8⁰ = 384 + 40 + 4 = 428
3) 2423 + 428 = 2851 4) 2851 = 5443₈ 2851 / 8 = 356 (ост. 3) / 8 = 44 (ост. 4) / 8 = 5 (ост. 4) = 5443₈
365₈ * 777₈ = 364413₈
1) 365₈ = 3 * 8² + 6 * 8¹ + 5 * 8⁰ = 192 + 48 + 5 = 245
2) 777₈ = 7 * 8² + 7 * 8¹ + 7 * 8⁰ = 448 + 56 + 7 = 511
3) 245 * 511 = 125 195 4) 125195 = 364413₈ 125 195 / 8 = 15649 (ост. 3) / 8 = 1956 (ост.1) / 8 = 244 (ост. 4) / 8 = 30 (ост. 4) / 8 = 3 (ост. 6)
39 символов включая знаки препинания и пробелы в итоге.
39*2=78
