СРОЧНО ПОЖАЛУЙСТА!!!!Даны натуральные числа А и В ,обозначающие соответственно числитель...

Question

СРОЧНО ПОЖАЛУЙСТА!!!!
Даны натуральные числа А и В ,обозначающие соответственно числитель и знаменатель дроби.Сократить дробь,т. е. найти такие натуральные числа P и Q не имеющие общих делителей ,что P/Q = A/B

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  var (a,b):=ReadInteger2('Введите числитель и знаменатель дроби:');
  Frc(a,b).Print
end.

Пример
Введите числитель и знаменатель дроби: 360 2940
6/49

---