Question

СФОРМУЛИРОВАТЬ ЗАДАЧУ
Var a, b, c, d, m, n: integer;
Begin
Write ('введите натуральные числа a, b, c, d: ');
Readln (a, b, c, d);
m:=a*c; n:=b*d;
while m<>n do
if m>n then m:=m-n else n:=n-m;
writeln('Результат: ', a*c div m, '/', b*d div m)
End.

Answer 1

Программа вычисляет значение дроби
$\displaystyle \frac{a}{b}\cdot \frac{c}{d}= \frac{ac}{bd}$
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.