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

Question

Информатика

Моля

20 июля, 21:54

Вычислите 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.