Спросить у пользователя число в десятичном виде от 0 до 254. Вывести это число в двоичном виде, в виде восьми бит. Могут быть выведены незначащие нули. Пример: 253 Ответ: 11111101
Answers & Comments
WhiteQuartz
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.
2 votes Thanks 1
WhiteQuartz
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
WhiteQuartz
var a,b:integer; s:string; begin readln(a); if (a>=0) and (a<=254) then begin b:=8; while true do begin s:=a mod 2+s; a:=a div 2; if b=1 then break; b:=b-1; end; end else writeln('Число не находится в промежутке от 0 до 254'); writeln('Двоичное число: ',s); end.
Answers & Comments
s:string;
begin
readln(a);
if (a>=0) and (a<=254) then
begin
b:=8;
while true do
begin
s:=a mod 2+s;
a:=a div 2;
if b=1 then break;
b:=b-1;
end;
end
else
writeln('Число не находится в промежутке от 0 до 254');
writeln('Двоичное число: ',s);
end.