Question

 

1.   
Даны два
натуральных числа M и N – числитель и знаменатель дроби M/N.
Требуется сократить дробь, насколько это возможно.

Answer 1

var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.

По идее так, не проверял.