Решите пожалуйста эту задачу в паскале
Var x1,x2,x3,y1,y2,y3: integer;beginwriteln(Введите 3 строки с коородинатами x и y:);readln(x1,y1);readln(x2,y2);readln(x3,y3);writeln(x1=,x1, y1=,y1);writeln(x2=,x2, y2=,y2);writeln(x3=,x3, y3=,y3);writeln(P=,(sqrt(sqr(x2-x1)+sqr(y2-y1)) + sqrt(sqr(x3-x2)+sqr(y3-y2)) + sqrt(sqr(x3-x1)+sqr(y3-y1))):0:2);writeln(S=,(0.5*ABS((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))):0:2);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
