Pascal написать программу, переводящую десятичное число в двоичную систему
243
305
Ответы на вопрос:
Var a: longint; b: string; begin write('a = '); readln(a); a: =abs(a); while a > 0 do begin if a mod 2 = 0 then b: ='0'+b else b: ='1'+b; a: =a div 2 end; writeln(b) end.
Берутся значения из таблицы в тетрадах, они последовательно записываются и получается число в 2-чной системе.
Популярно: Информатика
-
kataysinkevich14.12.2020 16:05
-
БразилицУченик15.03.2021 19:43
-
НяФФкА55528.05.2022 03:37
-
Vrronika77806.04.2020 01:39
-
zobitkov03.03.2023 20:43
-
vitalik153fb20.06.2020 23:10
-
Dk00011.09.2022 15:02
-
Tolapula31.12.2020 07:32
-
vaider22231.05.2023 11:40
-
steik2015509.12.2020 12:01