Question

viết chương trình kiểm tra 1 tam giác có phải là tam giác cân hay không

Answer 1

Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;

Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
if (a=b) or (b=c) or (c=a) then
Writeln('la tam giac can ');

End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.

Answer 2

Program tam_giac_can;
Uses crt;
Var
a,b,c:integer;
Begin
Clrscr;
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) and (a=b) or (a=c) or (b=c) then
Writeln('Tam giac tren la tam giac can')
Else
Writeln('khong phai tam giac can');
Readln;
End.

Answer 3

Program tam_giac_can;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;

Write('nhap a =');readln(a);
Write ('nhap b =');readln(b);

Write('nhap c =');readln(c);

If (a+b>c) and (b+c>a) and (a+c>b) and (a=b) or (a=c) or (b=c) then
Writeln('Tam giac tren la tam giac can')
else
Writeln('Khong phai tam giac can');
readln;
end.