СФОРМУЛИРОВАТЬ ЗАДАЧУ 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.
Программа вычисляет значение дроби определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.