var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
<span>помогите разгатать ребус ----- </span>графічний редактор
Для решения задачи используем формулу I =
![log_{2}( \frac{1}{P})](https://tex.z-dn.net/?f=+log_%7B2%7D%28+%5Cfrac%7B1%7D%7BP%7D%29++)
Вероятность взять перец = 8/16 = 1/2. Количество информации в сообщении о том, что взят перец I1 = log(2)[1/(1/2)] = log(2)2 = 1 бит
Вероятность взять огурец = 4/16 = 1/4. Количество информации в сообщении о том, что взят огурец I2 = log(2)[1/(1/4)] = log(2)4 = 2 бита
Вероятность взять баклажан = 2/16 = 1/8. Количество информации в сообщении о том, что взят баклажан I3 = log(2)[1/(1/8)] = log(2)8 = 3 бита
Для редиса I4 = I3 = 3 бита
1536/3072=4 бита
Алфавит содержит 16 символов