цикл -- это научный круг наук так я понила тоесть тебе нужно нарисовать триугольник в круге я так понимаю больше не чем немогу помочь.
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
program task;
var
x, f: real;
t: boolean;
begin
readln(x);
t := (x > 2) and (x < 5);
case t of
true: f := 2 * x;
false: f := 0;
end;
write(f);
<span>end.</span>
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
.
Для языка Бамбара i=7 бит (
); для языка Мандинго i=6 бит (
).
Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).