profile
Размещено 5 лет назад по предмету Информатика от artemgoshhenko

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

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

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

  1. Ответ на вопрос
    Ответ на вопрос дан mikhail0mikhailkov

    Ответ:

    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 > 2) do

              n := n div 2;

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

              writeln('ДА')

              else

              writeln('НЕТ');

             end;

    end.

    Объяснение:

  2. Ответ на вопрос
    Ответ на вопрос дан igorShap

    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.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.