Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra màn hình thông báo đó có phải là số đo 3 cạnh của 1 tam giác không, đưa ra màn hình giá trị nhỏ nhất trong 3 số a ,b, c
Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra màn hình thông báo đó có phải là số đo 3 cạnh của 1 tam giác không, đưa ra màn hình giá trị nhỏ nhất trong 3 số a ,b, c
program Tam_giac;
uses crt;
var a,b,c:integer;
begin
readln(a,b,c);
if (a+b>c) and (b+c>a) and (c+a>b)
then if (a=b) and (b=c)
then writeln(‘La tam giac deu’)
else if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then writeln(‘La tam giac vuong can’)
else writeln(‘La tam giac vuong’)
else if (a=b) or (b=c) or (c=a)
then writeln(‘La tam giac can’)
else writeln(‘Tam giac thuong’)
else writeln(‘Khong phai la tam giac’);
readln
end.
chúc học tốt nha