Склавиатуры вводится число n под корнем. если это число больше нуля, то найти его квадратные корни. если число отрицательное, то возвести его в квадрат

Var n: real; begin   writeln('n = ');   readln(n);   if n> 0 then writeln('sqrt(n)=',sqrt(n));   if n< 0 then writeln('n^2=',sqr(n));   readln; end.

  развиваться  и  предлагать  пользователям  пк  всё  более  удобные  средства,  допустим,  вместо  мыши  можно  будет    рукой  или  устройством  похожим  на  ручку  (  сейчас  такое  уже  есть)  .возможно  появиятся  новые  ос  которые  будут  конкурировать  с  виндоус  своими  новыми  удобствами.  или  мы  будем  видеть  изображения  в  пространстве,  а  не  в  плоскости,  как  сейчас

Так как исходное число содержит ненулевые целую и дробную части, а для перевода целых и дробных чисел используются разные алгоритмы, то мы переведем сначала целую часть числа, затем дробную и в конце синтезируем полное число. переводим целую часть, то есть число 12. 12: 2=6 0 6: 2=3   0 3: 2=1     1 12 в двоичной системе счисления - 1100 переводим дробную часть, то есть 0,25 умножим дробную часть 0,25 на два, затем дробную часть полученного числа снова умножим на два и так далее. повторять умножение нужно до тех пор, пока последняя дробная часть не обратится в ноль, либо не исчерпается разрядка сетка машины (в нашем случае 16 двоичных знаков в дробной части). 0,25*2=0,5 0,5*2=1 получено целое число, дробная часть которого равна нулю, процесс умножения можно прекратить. теперь мы можем записать 0,25 в двоичной системе счисления, целая часть у нас равна нулю, а цифры в дробной части (слева направо) это есть целый части наших произведений (сверху вниз), то есть, в самом младшем разрядке оказывается целая часть последнего произведения. 0,25=0,01 синтезируем исходное число 12,25 как композицию знака, целой и дробной частей. 12,25 в двоичной системе счисления - 1100.01