Написать программу, которая спрашивает «который час? » и, в зависимости от введенного времени, выводит на экран : «доброе утро», «добрый день», «добрый вечер», «спокойной ночи».

Program  z1; var  a: real; begin writeln('который  час? '); read(a); if  (a> =6) and (a< 12) then writeln('доброе утро') else begin if  (a> 11)  and (a< =16) then writeln('добрый день')  else begin if  (a> 16)  and (a< =22) then writeln('добрый  вечер') else begin if  (a> 22) or (a< 6)  then writeln('спойкойной ночи')  end; end; end;   end.

Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой). предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. для дробной части незначащие нули - последние и мы будем их искать в последней тетраде. первая тетрада - представление 1(16)=0001(2). левые три нуля незначащие и их удаляем, остается 1. последняя тетрада - представление е(16)=1110(2). тут один незначащий ноль - правый, остается 111.. остальные тетрады переписываем без изменения. 12ас,6е(16)=1 0010 1010 1100 , 0110 111 (2) считаем количество нулей в записи: 9. это и есть ответ.