Question

viết chương trình nhập vào từ bàn phím giá trị số thực a,b,c và kiểm tra a,b,c có phải độ dài 3 cạnh của tam giác đêù ,vuông ,cân hay tam giác thường

Answer 1

uses crt;
var a, b, c: real;
begin
clrscr;
 writeln('Kiem Tra Tam Giac');
    write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
    if (a+b>c) and (a+c>b) and (b+c>a) then 
    begin
     writeln('Do La Ba Canh 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 if (a = b) or (a = c) or (b = c) then 
     begin
      if (a = b) and (b = c) then 
       writeln('Tam Giac Deu')
      else 
       writeln('Tam Giac Can');
     end
     else writeln('Tam Giac Thuong');
    end
    else write('Khong Phai Tam Giac');
    readln
end.