Перевести число из восьмеричной системы в двоичную и выполнить проверку в десятичной системе счисления 5436(8)
124
193
Ответы на вопрос:
Program ex; var a, k: integer; begin a : = 1; k : = 0; while a < > 0 do begin read(a); if (not (a mod 2 = 0)) then k : = k + 1; end; write(k)// если нужен только подсчет, можно убрать.end.
Популярно: Информатика
-
lesenok27724.04.2023 01:02
-
nickitasychev19.01.2022 12:36
-
znasta74530.03.2021 16:09
-
ТКУиК9ks1107.03.2023 00:51
-
Didi12EW19.09.2021 01:35
-
MaarioForte10.09.2021 12:53
-
mariyamariya20126.09.2022 08:13
-
marenich10152002.09.2020 16:55
-
слышала01.01.2020 04:44
-
aidarisiev8012.04.2021 22:17