Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  9
Language: PASCAL
Code:
program HelloWorld;
var a,b,c,d,nod,n,m,x,y,z:integer;
begin
read(a,b,c,d);
m:=c*d;
n:=d*a+b*c;
x:=n;
y:=m;
while (m<>0) and (n<>0) do
begin
if m>n then m:=m mod n
else n:=n mod m;
end;
nod:=n+m;
x:= x div nod;
y:= y div nod;
if x>=y then 
begin
z:= x div y;
x:= x mod y;
end;
if (z>0) and (x<>0) then write (z, ' ',x,'/',y)
else if x=0 then write (z)
else write (x,'/',y);
end.
Comments: