Есть ответ 👍

с информатикой 3-е задание нужно заполнить таблицу

266
494
Посмотреть ответы 2

Ответы на вопрос:


Везде да


Var c,i: integer; function inttobin2(value: integer): string; var    i: integer; begin result: = ''; for i: = 0 to trunc(ln(value)/ln(2)) do result: = inttostr((value and (1 shl i) shr i))+result; end;   begin; for c: =41 to 69 do writeln(c,'=',inttobin2(c)); end.вывод: 41=10100142=10101043=10101144=10110045=10110146=10111047=10111148=11000049=11000150=11001051=11001152=11010053=11010154=11011055=11011156=11100057=11100158=11101059=11101160=11110061=11110162=11111063=11111164=100000065=100000166=100001067=100001168=100010069=1000101

Популярно: Информатика