Переведите целые числа из десятичной системы счисления в шестнадцатеричную
2020
270
464
Ответы на вопрос:
Var a,b,c: integer; begin readln (a,b,c); if (a mod 2 = 0) a: =a div 2; if (b mod 2 = 0) b: =b div 2; if (c mod 2 = 0) c: =c dic 2; writeln (a,' ',b,' ',c); end.
Популярно: Информатика
-
Thrillgang31.12.2020 04:42
-
maratis200715.01.2022 16:13
-
nataliamoroz83028.07.2022 01:45
-
555Фрайлисия55511.05.2020 22:21
-
Янчик17206.05.2022 02:20
-
katiatrush8627.11.2020 01:56
-
artur1749919.03.2020 23:02
-
bodnarhuk8322.02.2020 14:42
-
AnastasiaVolk53415.12.2021 12:50
-
мария208131.03.2022 07:26