8. Виберіть приклади внутрішньої пам'яті.
1) Жорсткі магнітні диски.
2) Оптичні диски.
3) Оперативна пам'ять.
4) Відеопамять.
5) Постійна пам'ять.
6) Карти-пам'яті.
7) Флеш-память.
8) Напівпостійна пам'ять.
Больше одной видповиди. ​

Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.

A)X = *5(16) = *0*(8)
# код на руби
for i in "100".to_i(8).."f5".to_i(16)
    p [i, i.to_s(16), i.to_s(8)] if i%16==5 and (i/8)%8==0
end

Выдает 3 варианта ответов
[69, "45", "105"]
[133, "85", "205"]
[197, "c5", "305"]


б)X = 3*9(16)= 1**(8)
тут или ошибка или нужно доказать что такого числа нет
Минимальное 16ричное число при таких данных 309(16) = 777(10)
Максимальное 8ричное число при таких данных 177(8) = 127(10)
Так что такого числа нет

если переписать условие иначе
б)X = 3*9(16)= 1***(8)

тогда

# код на руби
for i in 0..2000
    p [i, i.to_s(16), i.to_s(8)] if i%16==9 and (i/16/16)==3 and i/8/8/8==1
end

дает такие ответы
[777, "309", "1411"]
[793, "319", "1431"]
[809, "329", "1451"]
[825, "339", "1471"]
[841, "349", "1511"]
[857, "359", "1531"]
[873, "369", "1551"]
[889, "379", "1571"]
[905, "389", "1611"]
[921, "399", "1631"]
[937, "3a9", "1651"]
[953, "3b9", "1671"]
[969, "3c9", "1711"]
[985, "3d9", "1731"]
[1001, "3e9", "1751"]
[1017, "3f9", "1771"]