Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов)

@net_haker1 · Регистрация: 02.10.2013

Студворк — интернет-сервис помощи студентам

Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов).Пример: Ввод:5,вывод:00000101.Пример2:ввод:100,вывод:01100100

@_Developer · 09.12.2013, 12:35

Pascal

var
  x: word;
  s: string[8];
 
procedure PrintBin(x: integer);
begin
  if x = 0 then exit;
  PrintBin(x div 2);
  s += IntToStr(x mod 2);
end;
 
begin
  repeat
    write('Введите x: ');
    x := ReadInteger;
  until (x < 256);
  write('Двоичное представление: ');
  PrintBin(x);
  writeln;
  if Length(s) <> 8 then 
    for var i := Length(s) to 7 do
      Insert('0', s, 1);
  write(s);
end.

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов) 09.12.2013, 10:32. Показов 2314. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов).Пример: Ввод:5,вывод:00000101.Пример2:ввод:100,вывод:01100100 0

Опции темы

Ввести с клавиатуры натуральное число X (X<256). Вывести на экран двоичное представление этого числа (8 разрядов)

Решение