Question

ПОМОГИТЕ!!!СРОЧНО!!!

Известны координаты 3-х точек A(x1,y1),B(x2,y2),C(x3,y3). Найдите сумму расояний AB+BC. Запишите в программе PASCAL

Answer 1

uses crt;var  x1,x2,x3,y1,y2,y3: real;  begin cls;  write('Координаты A: ');readln(x1,y1);  write('Координаты B: ');readln(x2,y2);  write('Координаты C: ');readln(x3,y3);  write('Сумма AB+BC = ',(sqrt(sqr(x2-x1)+sqr(y2-y1)))+(sqrt(sqr(x3-x2)+sqr(y3-y2))):0:2);end.