СФОРМУЛИРОВАТЬ ЗАДАЧУ 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:=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.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Найти результат деления произведения целых чисел a и c на их наибольший общий делитель и произведения целых чисел b и d на тот же наибольший общий делитель.