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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.