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 ^^
Câu hỏi trong lớp
Xem thêm