Спросить у пользователя число в десятичном виде от 0 до 254. Вывести

это число в двоичном виде, в виде восьми бит. Могут быть выведены незначащие

нули. Пример: 253 Ответ: 11111101

Question

Информатика

Афинодор

30 ноября, 11:29

Спросить у пользователя число в десятичном виде от 0 до 254. Вывести

это число в двоичном виде, в виде восьми бит. Могут быть выведены незначащие

нули. Пример: 253 Ответ: 11111101

+1

Ответы (1)

Знаете ответ на вопрос?

Максимыч · Answer 1

Var a, b:integer; s:string; beginreadln (a) ; if (a>=0) and (a<=254) thenbeginb:=8; while true dobegins:=a mod 2+s; a:=a div 2; if b=1 then break; b:=b-1; end; endelsewriteln ('Число не находится в промежутке от 0 до 254') ; writeln ('Двоичное число: ', s) ; end.