Ответы на вопрос:
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
Популярно: Информатика
-
znanija11407.07.2022 05:04
-
Бацио10.06.2023 09:25
-
Учебник201703.04.2022 16:03
-
Iraeuroset303.11.2022 04:10
-
anyakhrebtova02.02.2022 06:45
-
stalina270503.03.2021 16:50
-
goodblood19708.01.2020 14:04
-
Kazybek061127.03.2022 13:35
-
imrangaraev0025.04.2022 13:28
-
katy5444517.09.2021 11:52