Question

Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу деления дроби на дробь. Ответ должен быть несократимой дробью. Использовать подпрограмму алгоритма Евклида для определения НОД.

Answer 1

var n, m, a, b, c, d, e, f, g:integer;
Function Nod (m, n: integer): integer;
Begin
    While m<>n do
       If m>n then m:=m-n
                   Else n:=n-m;
       Nod:=m
End;
Begin
     Write('Ведите числители и знаменатели дробей: ');
     Read(a,b,c,d);
     e:=a*d;
     f:=b*c;
     if e=0 then writeln(e)
        else
            begin
                 g := nod(abs(e),abs(f));
                 e := e div g;
                 f:= f div  g;
                 writeln(e,'/',f);
            end;
end.