Question

НА ПАСКАЛЕ!!! 8 КЛАСС 1. Привести 2 дроби к общему знаменателю

Answer 1

// 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.