Question

Помогите пожалуйста!!!!1 Очень нужна помощь!
Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры.
Пример:
Введите числитель и знаменатель дроби:
25 15
После сокращения: 5/3
Язык: Паскаль
Решить нужно Процедурой (без Функции)!

Answer 1

Ответ:

var

 x,y,nod:integer;

procedure calcNod(a:integer; b:integer);

begin

 while (a > 0) and (b > 0)  do begin

   if a >= b then a:=a - b

   else b:=b - a

 end;

 nod := a + b;

end;

begin

 writeln('Введите числитель и знаменатель дроби: '); readln(x,y);

 calcNod(x, y);

 x:=x div nod;

 y:=y div nod;

 if y = 1 then write('После сокращения: ',x)

 else write('После сокращения: ',x,'/',y);

end.