Сформулировать var a, b, c, d, m, n: integer; begin - вопрос №3921648 от AkinFly 24.03.2021 16:06

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.

AkinFly · 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.