СФОРМУЛИРОВАТЬ ЗАДАЧУ 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(...
СФОРМУЛИРОВАТЬ ЗАДАЧУ
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.
Гость
Ответ(ы) на вопрос:
ГостьПрограмма вычисляет значение дроби
[latex]\displaystyle \frac{a}{b}\cdot \frac{c}{d}= \frac{ac}{bd} [/latex]
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
Не нашли ответ?
Похожие вопросы