4. Две окружности

  Определить количество точек пересечения двух окружностей.

Код решения:

*****

var
x1, x2, y1, y2, r1, r2, f, tmp: real;
begin
readln(x1,y1,r1,x2,y2,r2);
f := sqrt(sqr(x1-x2)+sqr(y1-y2));
if r2>r1 then begin
  tmp:=r1; r1:=r2; r2:=tmp;
  tmp:=x2; x1:=x2; x2:=tmp;
  tmp:=y1; y1:=y2; y2:=tmp
end;
if f=0 then
  if r1<>r2 then writeln('0')
  else writeln('-1')
else
  if f>r1+r2 then writeln('0')
  else if f=r1+r2 then writeln('1')
  else if r1-r2<f then writeln('2')
  else if r1-r2=f then writeln('1')
  else writeln('0');
end.

*****