Question

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

Answer 1

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.

Answer 2

Вот пример реализации алгоритма определения, является ли заданное целое число N бинарным, на языке Паскаль:

pascalCopy code
program IsBinary;

// Функция, которая определяет, является ли число бинарным
function IsBinaryNumber(N: Integer): Boolean;
begin
  // Проверяем, что число N положительное
  if N <= 0 then
    Exit(False);

  // Проверяем, что число N имеет только одну единичную цифру в двоичной системе счисления
  // Это можно сделать, пока число N делится на 2 без остатка
  while N mod 2 = 0 do
    N := N div 2;

  // Если после всех делений осталось число, отличное от 1, то число N не является бинарным
  if N <> 1 then
    Exit(False);

  // Если число прошло все проверки, оно является бинарным
  Exit(True);
end;

var
  N: Integer;

begin
  // Вводим целое число N с клавиатуры
  Write('Введите целое число N: ');
  Readln(N);

  // Проверяем, является ли число N бинарным
  if IsBinaryNumber(N) then
    WriteLn('Число является бинарным.')
  else
    WriteLn('Число не является бинарным.');
end.

Программа запрашивает у пользователя ввод целого числа N и затем использует функцию IsBinaryNumber для определения, является ли число N бинарным. Функция проверяет, что число положительное и имеет только одну единичную цифру в двоичной системе счисления, что является условием для бинарных чисел. Если число проходит все проверки, программа выводит сообщение о том, что число является бинарным, иначе выводит, что число не является бинарным.