Сформулировать 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.

Smillekate    1   28.06.2019 14:30    0