Question

Giúp em với a

Answer 1

Giúp em phần tự luận ạ em cảm ơn ạ 

 

 

 

 

 

Answer 2

Program tuluan;

uses crt;

var xo,yo,xa,ya,xb,yb,T : real;

Begin

     Clrscr;

     Writeln('Nhap lan luot toa do 3 diem O,A,B:');

     Readln(xo,yo,xa,ya,xb,yb);

     T := (xa-xo)*(xb-xo)+(ya-yo)*(yb-yo);

     Writeln('Tich vo huong cua 2 vecto OA va OB la:',T:8:2);

     Readln;

End.