//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger).ToString.Select(x->x.ToDigit).Sum);
end.
Нужно посчитать каждую букву, знак препинания, все пробелы и умножить их число на 16.
Получим ответ в битах.
Разделим на 8 - получим ответ в байтах.
Количество информации равно бинарному логарифму (т. е. по основании 2) количества равновероятных возможностей. В бассейне 20 дорожек, выбрана одна (неважно под каким номером) Тогда i = log2 20 (логарифм числа 20 по основанию 2) =(по формуле перехода логарифма к другому основанию) = lg20 / lg2 ≈ 4.32
Ответ 4.32 бит
Противный случай - это то же самое, что в другом случае или на языке информатики "иначе".
По-моему, в вашем случае "противного случая" нет, т. к. все возможные значения х учтены в первых случаях: число х может быть меньшим 0, большим 0, или равным 0. Но, если не придираться к условию, то программа выглядит так:
program funkciya;
var x, y: real;
begin
write('x='); readln(x);
if x<0 then y:=sin(sqr(x)) + 2*x
else if x>=0 then y:=sqrt(x)+sqrt(sqr(x)+1)
else y:=cos(x);
write('y=',y:5:2)
end.
Это человек превращается в волкообразное существо