Question

Решите пожалуйста эту задачу в паскале

Answer 1

var x1,x2,x3,y1,y2,y3: integer; begin writeln('Введите 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.

Answer 2

Когда запускаю,пишет Введите 3 строки с коородинатами x и y

Answer 3

Ну так введите числами x1 пробел y1 ентер x2 пробел y2 ентер x3 пробел y3 ентер.