Нужно проверить пересекаются ли две окружности, через входной и выходной файлы в Паскале. Координаты их центров х и у целые числа не превосходящие по модулю 5000 и радиус целое число от 1 до 1000 включительно.
{ пересечение окружностей }
var xa,ya,xb,yb,ra,rb: integer;
d: real;
st: string;
f: text;
begin
assign (f,C:In.txt);
reset (f);
read (f,xa,ya,ra);
read (f,xb,yb,rb);
close (f);
d:=Sqrt(sqr(xb-xa)+sqr(yb-ya));
if (d>rb+ra) or (d
{ запись в выходной файл }
assign (f,C:Out.txt);
rewrite (f);
writeln (f,st);
close (f);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
