Cls
input x
if x<0 then
z=log(-x)
end if
if x>=0 then
z=sqr(x+1)
end if
print z
1)800*640=512000-пикселей
2)24=2в степени 5
5-бит 1 пиксель
3)512000*5=2560000-бит
3)2560000\8\1024=312.5Кб(вроде)
56 (в 16с/с) = 0101 0110 (в 2с/с) = 010 010 110 (в 2с/с) = 226 (в 8с/с)
Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
Var x, y:real;
Begin
Readln(x) ;
Y:=(sqr(a) +1)/sqrt(sqr(a)+1)
Write(y);
End.