// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)
function NOD(x, y: integer): integer; begin if x <> 0 then NOD := NOD(y mod x, x) else NOD := y; end;
function NOK(x, y: integer): integer; begin NOK := (x div NOD(x, y)) * y; end;
begin var (a, b) := ReadInteger2('1) Числитель и знаменатель->'); var (c, d) := ReadInteger2('2) Числитель и знаменатель->'); Println('Общий знаменатель:', NOK(b, d)) end.
// Версия 3.3.5 сборка 1662 (29.04.2018)
function NOD(x, y: integer): integer;
begin
if x <> 0 then NOD := NOD(y mod x, x) else NOD := y;
end;
function NOK(x, y: integer): integer;
begin
NOK := (x div NOD(x, y)) * y;
end;
begin
var (a, b) := ReadInteger2('1) Числитель и знаменатель->');
var (c, d) := ReadInteger2('2) Числитель и знаменатель->');
Println('Общий знаменатель:', NOK(b, d))
end.