Для начала переведем все числа в одну систему счисления, например в десятичную:
<span>1)
111101</span>₂=61₁₀
AF₁₆=175₁₀
36₈=30₁₀
(61+175)/30=7.8(6)₁₀
2)
125₈=85₁₀
101₂=5₁₀
2A₁₆=42₁₀
141₈=97₁₀
85+5+42-97=35₁₀
231=11100111(в двоичной)
231=153(в восьмеричной)
231=817(в шестнадцатиричной)
function GCD(u: integer; v: integer):integer;
begin
var r:integer;
while ( v <> 0) do
begin
r := u mod v;
u := v;
v := r;
end;
Result:=u;
end;
Begin
var (n,m):=ReadInteger2();
var gcd_n:=GCD(n,m);
var nod_n:=abs(n*m)/GCD(n,m);
gcd_n.Println;
nod_n.Println;
end.