Предмет: Информатика,
автор: artemgoshhenko
Напишите пожалуйста в Паскале
Говорят, что плохой программист – это тот, кто считает, что в одном килобайте 1000 байт, а хороший программист – это тот, кто полагает, что в одном километре 1024 метра.
Многим эта шутка понятна, так как все знают, что в процессах, связанных с информатикой и компьютерной техникой, фигурирует множество значений, выражаемых степенью двойки, то есть чисел вида 2K, где K – некоторое неотрицательное целое число. Назовем такие числа бинарными. Это такие числа как 2, 4, 8, 16, 32 и т.д. Действительно, когда речь идет о размере памяти или о разрешении экрана монитора, то мы часто наталкиваемся на бинарные числа. Все это связано с принципом хранения информации в памяти ЭВМ.
Задано целое число N. Требуется определить, является ли оно бинарным.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Русский язык,
автор: xamibovshaxriyor
Предмет: Биология,
автор: albinaratner916
Предмет: География,
автор: kamadobryj
Предмет: Геометрия,
автор: poukot668
Предмет: История,
автор: saraeva2000