Дано целое число n(> 0), проверить является ли оно представлением целого двоичного числа
INKOGNIT009
2
04.10.2019 03:10
12
Другие вопросы по теме Информатика
Dima2006Dima
27.04.2020 10:54
коршун4
27.04.2020 10:54
karakatitsa1
27.04.2020 10:54
kokosik23
27.04.2020 10:54
даладно30раз
23.05.2019 21:20
zarinadmitrievI
23.05.2019 21:20
Kira1626
11.12.2019 13:16
ankavasilenko2
11.12.2019 13:11
lenyanikiforovp07x7k
11.12.2019 13:10
Популярные вопросы
- 1. Вкажіть ім*я давньоруського співця, який можливо є автором «Слова…»?...
2 - Complete the gaps in the text with the words in the box using the Present...
1 - Перпендикуляром, проведенным из точки С к прямой ВА является: ?...
3 - Мікрокалькулятор Мишка працює дивним чином. Спочатку Мишко вводить...
1 - Красворд со словом Ислам[ Ключевые слова] ИСЛАМ МУСУЛЬМАНЕ ХАЛИФАТ...
3 - Оцініть секторальну модель економіки України та спрогнозуйте її можливі...
2 - Найдите значение выражения:нужно очень...
2 - 4. Какой орган нервной системы находится: В позвоночнике: в черепе:...
2 - Сепаратизм у європі назвіть конкретні приклади. Довести переваги або...
3 - Охарактеризуйте историю философии как осмысления современных проблем...
3
var x,N : integer;
begin
x:= N;
while(N > 0) do
begin
if( N mod 10 >= 2) then begin
writeln('Не двоичное число');
break;
end;
N := N div 10;
end;
writeln(x);
end.