Сообщение о том что ваш друг живет на 5 этаже несет 3 бита информации сколько этажей в доме?
106
169
Ответы на вопрос:
Var a,b: int64; begin read(a, b); if b = 0 then writeln(0) else begin while b > 0 do begin a: = a * (b mod 10); b: = b div 10; end; writeln(a); end; end.
Популярно: Информатика
-
maxim21020420.05.2023 03:18
-
fedoseeva333521.05.2023 16:33
-
sveronika0011.03.2020 08:22
-
толстыи14.06.2023 04:46
-
palamarchk18120.11.2020 12:05
-
danilabelinovp08mj906.01.2020 14:06
-
ogbondarenko24.01.2022 14:00
-
sasha102782115.06.2022 07:31
-
nastalut20730.10.2020 06:10
-
miloft18.10.2020 04:51