<span>32=2^5 => i=5
</span>Формула количества информации в тексте I=k*i
<span>Значит I=10*5=50бит </span>
Var
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
<span>end.</span>
У двух крайних цепей по 1 кольцу, а у остальных девяти - по 2, всего 20
<span>ШАЙБА, ШАКАЛ, ШАЛУН, ШАРФ, ШАРИК, ШАРИКОВОЙ, ШАРНИК</span>
Пишу на QBasic
INPUT A
FOR I = 1 TO 3
IF A MOD 10 = 3 THEN
K=K+1
END IF
A=A\10
NEXT I
PRINT K