СФОРМУЛИРОВАТЬ ЗАДАЧУ
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.
Программа вычисляет значение дроби
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
