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

Ростислав111л Ростислав111л    2   21.04.2019 18:47    10

Ответы
leda2003 leda2003  08.06.2020 04:13

var

 flag: boolean;

 n: integer;

begin

 flag := true;

   

 write('Input N: ');

 readln(n);

 

 if (n <= 0) then  

   writeln('No')

 else

   begin

     while (n <> 1) do

       if (n mod 2 = 1) then

         begin

           flag := false;

           n := 1;

         end

       else

         n := n div 2;

     

     if (flag = true) then

       writeln('Yes')

     else  

       writeln('No')

   end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика