5
Объяснение:
Данная задача на формулу Шеннона. Такая встречается в задании 8 ЕГЭ по информатике. Решение представлено ниже, подобная задачка с видео-разбором есть по ссылке https://xn--b1aga7bdp8a.xn--p1ai/product/%d0%b7%d0%b0%d0%b4%d0%b0%d0%bd%d0%b8%d0%b5-8-%d0%b8%d0%b7-%d0%bf%d1%80%d0%be%d0%b1%d0%bd%d1%8b%d0%b9-%d0%b5%d0%b3%d1%8d-2021-%e2%84%9610-%d0%bf%d0%be-%d0%b8%d0%bd%d1%84%d0%be%d1%80%d0%bc%d0%b0%d1%82/
Описание к картинке:
p - вероятность, что на одном из 18 дисков
х - кол-во бит в смс
var
gd, gm, xc, yc, r, x, y: integer;
begin
clrscr;
repeat
writeln('Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:');
readln(xc, yc);
until((xc >= 50) and (xc <= 300)) and ((yc >= 50) and (yc <= 350));
gd := 0;
initgraph(gd, gm, '');
setbkcolor(15);
cleardevice;
r := 50;
setlinestyle(0, 0, 3);
setcolor(9);
circle(xc, yc, r);
setcolor(8);{темно-серый, черный не нарисовать}
circle(xc + 2 * r, yc, r);
setcolor(12);
circle(xc + 4 * r, yc, r);
setcolor(14);
circle(xc + r, yc + r, r);
setcolor(10);
circle(xc + 3 * r, yc + r, r);
readln
end.