Записать алгоритм записать алгоритм запишите на алгоритмическом языке алгоритм построения окружности заданного радиуса r, проходящей через заданные точки а и в

Для начала нужно решить чисто , решения на листочках.  поскольку школьная, то вариант совпадения точек не рассматривается алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен алг круг_по_двум_точкам_и_радиусу(арг действ ax, арг действ ay, арг действ bx, арг действ by, арг действ r)     дано | a,b,r     надо | нарисовать окружность нач     ввод ax, ay, bx, by, r     действ dab = ((ax - bx)^2 + (ay - by)^2)^(0.5) // длина ав     действ h = (r^2-dab^2/4)^(0.5) // высота и длина вектора ом     // м середина ав     действ mx = (ax + bx) / 2      действ my = (ay + by) / 2     //первый круг     действ  ox = mx + (ay - by) * h/dab     действ  oy = my - (ax - bx) * h/dab     нарисовать_круг(ox, oy, r)     //второй круг     ox = mx - (ay - by) * h/dab     oy = my + (ax - bx) * h/dab     нарисовать_круг(ox, oy, r) кон

i = log₂ (1/p)

log₂ (1/p) = 4

1/p = 2⁴

1/p = 16

p = 1/16 вероятность появления автобуса n1

вероятность появления автобуса n2: р = 1/16 : 2 = 1/32

i = log₂ (1/1/32) = log₂ 32

i = 5 бит

5 бит информации несет сообщение о появлении автобуса n2.

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;