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

Question

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

Comments

Запись дроби?

---

Да какая там запись... два целых - числитель и знаменатель. Восьмой же класс... не кортежи ведь им писать и не записи.

---

Через классы)

---

Ну если только ставить цель поглумиться.

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.

Comments

В качестве малой критики. Не было смысла определять отдельно НОД, потому что к нему обращение только однократно из НОК. Прямо там и записать его.

---

Для обобщенности

---

Что-бы наглядно было видно что да как