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

Question

Информатика

Гемина

29 января, 05:41

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

+2

Ответы (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.