Напишите пожалуйста в ПаскалеГоворят, что нехороший программер это тот, кто

Напишите пожалуйста в Паскале
Разговаривают, что нехороший программист это тот, кто считает, что в одном килобайте 1000 байт, а хороший программер это тот, кто считает, что в одном километре 1024 метра.

Многим эта шутка понятна, так как все знают, что в процессах, связанных с информатикой и компьютерной техникой, бытует множество значений, выражаемых степенью двойки, то есть чисел вида 2K, где K некое неотрицательное целое число. Назовем такие числа бинарными. Это такие числа как 2, 4, 8, 16, 32 и т.д. Вправду, когда речь идет о размере памяти либо о разрешении экрана монитора, то мы часто наталкиваемся на бинарные числа. Все это связано с принципом хранения инфы в памяти ЭВМ.

Задано целое число N. Требуется найти, является ли оно бинарным.

Задать свой вопрос
1 ответ

Ответ:

program binarnost;

var

 n: integer;

begin

 readln(n);

 if n mod 2 = 1 then

 writeln('НЕТ')

 else if (n = 2) or (n = -2) then

         writeln('ДА')

         else  

         begin

          while (n mod 2 = 0) and (n gt; 2) do

          n := n div 2;

          if (n = 2) or (n = -2) then

          writeln('ДА')

          else

          writeln('НЕТ');

         end;

end.

Изъясненье:

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт