Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
1. Оперативная: а, г, д, е
Долговременная: б, в, ж
2. "0" или"1" - это 1 бит. 8 бит = 1 байту. отделим по 8 "0" и "1", начиная с конца. получится 4 разделения, т.е. 4 байта.
3. 1024 бит/8 = 128 байт. если запись велась с 10, то адрес последнего будет 10+128 = 138.
4. флеш-карта, дискета, CD, DVD, съемный жесткий диск.
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.