Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие (программа Паскаль)
Вопрос посетителя
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие натуральные числа p и q, не имеющие общих делителей, что p / q = a / b.
Ответ эксперта
program z1;
uses crt;
var a,b,m,n:integer; p,q: real;
begin
read (a,b);
m:=a; n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
p:= a/m;
q:= b/m;
writeln(p,’/’,q);
end.
