Напишите процедуру, которая сокращает дробь вида m/n. числитель и знаменатель дроби как изменяемые параметры. пример: введите числитель и знаменатель дроби: 25 15 после сокращения: 5/3

178

391

Посмотреть ответы 2

Ответы на вопрос:

Chempionsyper

Информатика

4,5(91 оценок)

Var a, b: integer; function greatest_common_divisor(m, n: integer): integer; var modulo: integer; begin modulo : = m mod n; if modulo = 0 then greatest_common_divisor : = n else greatest_common_divisor : = greatest_common_divisor(n, modulo) end; procedure reduce_the_fraction(a, b: integer); var gcd: integer; sign: string; begin gcd : = greatest_common_divisor(a, b); if a * b < 0 then sign : = '-'; writeln(sign, abs(a) / gcd, '/', abs(b) / gcd); end; begin write('enter two numbers: '); readln(a, b); reduce_the_fraction(a, b); end.