Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

написать в программе паскаль

Ответ оставил Гость

var x,y,dist:real;

begin

   readln(x,y);

   dist:=sqrt(x*x+y*y);

   readln(x,y);

   x:=sqrt(x*x+y*y);

   if (x>dist) then writeln(2-я точка ближе)

      else if (x

         else writeln(Одинаково)

end.