Сформулировать var a, b, c, d, m, n: integer; begin - вопрос №3921423 от Criss666 17.05.2020 00:37

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.

Criss666 · Answer

Программа вычисляет значение дробиопределяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД....

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

Сформулировать var a, b, c, d, m, n: integer; begin write ('введите натуральные числа a, b, c, d: '); readln (a, b, c, d); m: =ac; n: =bd; while m< > n do if m> n then m: =m-n else n: =n-m; writeln('результат: ', ac div m, '/', bd div m) end.