Вычислите 7116 + 4516. Ответ приведите в двоичной системе.

Question

Информатика

Доса

25 апреля, 17:49

Вычислите 7116 + 4516. Ответ приведите в двоичной системе.

+3

Ответы (1)

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

Эраст · Answer 1

uses crt;

function dec2bin (x:integer) : string;

var s:string;

begin s:='';

while x>0 do

begin

s:=chr (ord ('0') + x mod 2) + s;

x:=x div 2;

end;

dec2bin:=s;

end;

var a: integer;

begin clrscr;

a:=7116+4516;

writeln ('ответ:', dec2bin (a)) ;

end.