СФОРМУЛИРОВАТЬ ЗАДАЧУ Var a, b, c, d, m, n: integer; Begin Write ('введите натуральные числа a, b, c, d: '); Readln (a, b, c, d
СФОРМУЛИРОВАТЬ ЗАДАЧУ 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.