Ответы на вопрос:
// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin var n: int64; read(n); var s: =''; var c: =ord('0'); while n> 0 do begin s: =chr(c+n mod 2)+s; n: =n shr 1 end; writeln(s,'(2)') end. пример 24523 101111111001011(2)
Популярно: Информатика
-
Keneke13.10.2021 18:12
-
cherkashina71104.09.2021 22:49
-
Topceev2107.03.2022 08:26
-
китии228.06.2022 18:16
-
psheni4nayaLiza05.04.2022 06:47
-
Artemgood23.05.2020 16:42
-
RomaNeymarjr23.02.2020 15:39
-
viktoriakovalch21.10.2022 11:17
-
Andrey2001s24.04.2020 05:51
-
ляля36330.03.2023 11:50