Nhập vào 3 số ABC kiểm tra có phải là 3 cạnh tam giác hay không nếu là tam giác thì đó là tam giác gì gì
1 câu trả lời
program az;
uses Crt;
var a,b,c : integer;
begin
clrscr;
Write('Nhap 3 so do : '); readln(a,b,c);
If (a + b > c) and (b + c > a) and (c + a > b) then
begin
Writeln('La so do 3 canh cua tam giac');
If (a = b) or (b = c) or (c = a) then Writeln('La tam giac can');
If (a=b=c) then Writeln('La tam giac deu');
If (a*a + b*b = c*c) or (b*b + c*c = a*a) or (a*a + c*c = b*b) then Writeln('La tam giac vuong');
end;
else Writeln('Khong phai so do 3 canh cua tam giac');
readln
end.
