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