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