Question

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

Answer 1

uses crt;
var a,b,c,d,e,f,k:longint;
 
function nod(a,b:longint):longint;
begin
 if a=b then nod:=a else if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a);
end;
 
begin
 clrscr;
 write('A/B C/D -> ');
 readln(a,b,c,d);
 e:=a*d-b*c;
 f:=b*d;
 k:=nod(e,f);
 e:=e div k;
 f:=f div k;
 writeln(a,'/',b,' - ',c,'/',d,' = ',e,'/',f);
 readln;
end.