Вернуться Тема: ребята. помогите решить задачу две окружности на паскале. В паскале я написал два варианта кодаб проверил, всё работает, но на сайте выдаёт не правильный ответ.
1 Черепанв Иван це эс шст шст пят сбк пе эм тчк эм е, 19 октября 2021 г. 17:11:22
А что будет на таком тесте: 0 0 100 0 1 50
2 Неизвестный, 19 октября 2021 г. 12:19:08
второй вариант: var x1,x2,y1,y2,r,r1,r2: real; begin reset(input, 'input.txt'); rewrite(output, 'output.txt'); readln(x1,y1,r1); readln(x2,y2,r2); r:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); if r1+r2>=r then write('YES') else write('NO'); end. первый я к сожалению потерял
