Ответы на вопрос:
Function to_base(n: integer; base: integer): integer; begin if n = 0 then to_base : = 0 else to_base : = (n mod base) + 10 * to_base(n div base, base); end; var n: integer; begin readln(n); writeln(to_base(n, 3)); writeln(to_base(n, 5)); end.
Популярно: Информатика
-
irlukshina14.09.2022 17:41
-
алина388208.04.2020 19:26
-
soktomunkuev2004.11.2020 19:38
-
irko0029.09.2020 12:40
-
annet553012.06.2023 11:40
-
alistas08.11.2021 23:20
-
Exem7625.02.2020 05:34
-
egor57202.11.2020 09:50
-
ReyCh2327.04.2020 22:46
-
sab202105.04.2020 20:54