Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a, b, c, d, bd, n, r, i: integer;
- function nod(a, b: integer): integer;
- begin
- while a <> b do
- if a > b then
- a := a - b else
- b := b - a;
- nod := a; end;
- begin
- readln(a, b, c, d); write(a, '/', b, '-', c, '/', d, '=');
- bd := (b * d) div nod(b, d);
- a := (bd div b) * a;
- c := (bd div d) * c;
- if c > a then c := c - a else c := a - c;
- a := c div bd;c := c - bd * a;
- n := nod(c, bd); c := c div n; bd := bd div n;
- if c > a then write('-'); if a <> 0 then write(a); write(c, '/', bd);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement