Ответы на вопрос:
чтобы перевести десятичное число в 2-чную систему, нужно это число последовательно делить на 2 с остатком. например, переведём 83.
делим
83 : 2 = 41 (остаток 1)
41 : 2 = 20 (остаток 1)
20 : 2 = 10 (остаток 0)
10 : 2 = 5 (остаток 0)
5 : 2 = 2 (остаток 1)
2 : 2 = 1 (остаток 0)
теперь выписываем последний результат деления (у нас это 1) и после него все остатки в обратном порядке: 0 1 0 0 1 1
получается число 1010011
проверяем:
Подозреваю, что не самый рациональный метод решения, но чем смог тем : ) const n = 30; var a: array [1..n] of longint; i, j, k: longint; begin for i : = 1 to n do readln(a[i]); j: =0; k: =0; for i: =1 to n do begin if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]> 0) then inc(k); if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]< 0) then inc(j); end; if k> j then writeln(j) else if k< j then writeln(k) else if k=j then writeln(k); end.
Популярно: Информатика
-
sалаьы16.06.2022 12:40
-
nastyazhovnirenko13.09.2020 10:14
-
zhivotkhanova9503.08.2021 04:52
-
СпудиМэн03.06.2023 23:39
-
Udnyoj11.08.2022 04:56
-
nn81492103.08.2021 00:19
-
missislevitina20.10.2022 05:48
-
Вовка30010.11.2020 17:19
-
skshhd27.04.2020 00:59
-
Yerkosyaorynbekova28.03.2022 07:41