Question

Сложение дробей. 7 класс

Даны две дроби a/b c/d, нужно их сложить (знаменатели могут быть разными). Находить через НОД. В программе каждое действие пояснить. Язык Pascal.

Спасибо.

Answer 1

var n,m,a,b,c,d,k:longint;

function NOD(x,y:longint):longint;

var c:longint;

 begin

   while y>0 do

     begin

       c:=x mod y;

       x:=y;

       y:=c;

     end;

     NOD:=x;

 end;

Function NoK(x,y:longint):longint;

 begin

   NOK:=(x*y) div NOD(x,y);

 end;

begin

 readln(a,b,c,d);

 n:=NoK(b,d);

 a:=a*(n div b);

 c:=c*(n div d);

 m:=a+c;

 k:=nod(a,c);

 write(m div k, ' ' ,n div k);

end.