Question

Помогите пожалуйста. Программа Паскаль

Answer 1

Ответ:

1)

Begin

Read(x1,y1,x2,y2);

Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));

End.

2)

Begin

Read(a,b,c);

P:=(a+b+c)/2;

Write(sqrt(p*(p-a)*(p-b)*(p-c)));

End.