[C++] Даны две рациональные дроби: a/b и c/d. Сложите их и результат представьте в виде несократимой дроби m/n.

[p51x]

Вот даже подумать людям не дали. Остановили в шаге от оглашения открытия. Эх вы...

[Serge_Bliznykov]

Сообщение от p51x

Вот даже подумать людям не дали. Остановили в шаге от оглашения открытия. Эх вы...

сутки дали подумать. а потом - извините, не удержались...

[Аватар]

Сомнительно, что вообще кто-то думал )

[digitalis]

"Мысли пачкают мозги" © Из газет


Можно вот так. Кррасоишша!

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,m,n,mn,j: integer ;
begin
  // Здесь вводим  a,b,c,d
.....
  m := a * d + b * c ;
  n := b * d ;
  if m<n then mn:= m div 2 else mn:= n div 2 ;

  j := 2 ;
  while j<=mn do
    begin
      if ((m mod j) + (n mod j))=0 then
        begin
          m := m div j ;
          n := n div j ;
          Memo1.Lines.Add(Format('%3d %3d %3d',[j,m,n]))
        end
      else
        begin
          Memo1.Lines.Add(Format('%3d',[j])) ;
          Inc(j)
        end ;
    end ;

end;