//Новая версия с "Поехавшей анимацией..."
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.
Ответ:
Введите доступную память в Гб - 6
Доступная память 6Гб = 6 * 1024 * 1024 * 1024 * 8 бит = 51539607552 бит
Вес одной страницы = 40*60*8 = 19200 бит
Страниц в памяти = 51539607552 div 19200 = 2684354 страниц
Высота стопки = 2684354 / 100 = 26843.54 см = 268.4354 м
Объяснение:
Ответ:
для набора фразы 25 нажатий на клавиши
Объяснение:
[CapsLock включить]Л[CapsLock выключить]етом мы были в [CapsLock включить]С[CapsLock выключить]очи.
длина предложения - 21 символ
+ 4 нажатия Caps Lock
Ответ:
300, 1048576, 64
Объяснение:
1 Кб = 1024 Байт = 8 · 1024 бит = 8192 бит
Чтобы узнать, сколько бит в 128 Кб, нам нужно умножить количество бит в 1 Кб на количество Кб:
128 Кб = 8192 · 128 = 1048576 бит
1/128 Кб = 8192 · ¹/₁₂₈ = ⁸¹⁹²/₁₂₈ = 64 бит