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ả 25/08/2021 Bởi Rylee 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ả
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 ^^ Bình luận
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 ^^