Cách Kiểm tra 3 điểm thẳng hàng trong Pascal

VD1 Ba điểm thẳng hàng

Input: Cho trong tệp văn bản DL.INP

- Dòng thứ 1 ghi số N

- N dòng tiếp theo, mỗi dòng ghi toạ độ của một điểm.

Output: Ghi vào tệp KQ.OUT chứa một số duy nhất là số bộ 3 điểm thẳng hàng.

[Giới hạn: 1c] and [b+c>a] and [c+a>b] then Begin write['3 so a,b,c la 3 canh cua tam giac']; if [a*a+b*b=c*c] or [a*a+c*c=b*b] or [b*b+c*c=a*a] then writeln ['Tam giac vuong' else writeln['Tam giac thuong']; end; else writeln['3 so a,b,c khong phai la 3 canh cua tam giac']; Readln End. [=========> Bổ sung bài viết Bổ sung bài viết