Submission #3888593

---

Source Code Expand

var
	x,y,n,m,g:int64;
	f:boolean;
	s:String;
	i:Longint;
function gcd(a,b:int64):int64;
begin
	if b=0 then gcd:=a else gcd:=gcd(b,a mod b);
end;
begin
	readln(s);
	i:=1;
	while s[i]<>'/'do begin
		x:=x*10+ord(s[i])-48;
		inc(i);
	end;
	inc(i);
	while i<=length(s)do begin
		y:=y*10+ord(s[i])-48;
		inc(i);
	end;
	n:=2*x div y-1;
	f:=False;
	while n<=2*(x+y)div y do begin
		if(n<=0)or((n+1)*y<=2*x)or((n-1)*y>2*x)then begin
			inc(n);
			continue;
		end;
		if x mod y*n mod y=0 then begin
			g:=gcd(x,y);
			writeln(n,' ',n*(n+1)div 2-x div g*(n div(y div g)));
			f:=True;
		end;
		inc(n);
	end;
	if not f then writeln('Impossible');
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result