Вопрос по информатике:
СФОРМУЛИРОВАТЬ ЗАДАЧУ
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.
- 17.04.2018 16:23
- Информатика
- remove_red_eye 11096
- thumb_up 21
Ответы и объяснения 1
Программа вычисляет значение дроби
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
- 18.04.2018 17:11
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.