Viết chương trình pascal nhập 1 số là chu vi của tam giác xét xem cạnh có phải là tâm giác vuông in kết quả

1 câu trả lời

program tamgiac;

uses crt;

var a,b,c:integer;

begin

write('Nhap chieu dai 3 canh tam giac:'); readln (a,b,c);

if (a=b) and (b=c) and (a=c) then write ('Tam giac deu');

if (a=b) or (b=c) or (a=c) then write('Tam giac can');

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write('Tam giac vuong');

readln

end.

Chúc bạn học tốt ^^