Var X,Y:real;
Begin
1Write('X = ');ReadLn(X);
if X<0 then Y:=Sqr(Sin(X))+2*X
else Y:=sqrt(X)+Sqrt(X*X+1);
Write('Y = ',Y)
End.
Нет не будет 0001,
А будет так:
115:2=57 и ост 1
57:2=28 и ост 1
28:2=14 и ост 0
14:2=7 и ост 0
7:2=3 и ост 1
3:2=1 и ост 1
И у нас остается 1 которую мы вводим в конец
Теперь "Переворачиваем" число и у нас получается 1110011
Ответ: 1110011