pascal 输入三个数,判断以这三个数为边长通否组成一个三角形.输入三个数,判断以这三个数为边长通否组成一个三角形.若能构成三角形,输出其特征（等边、等腰、直角、一般）；若不能,则给
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 04:58:58
pascal 输入三个数,判断以这三个数为边长通否组成一个三角形.输入三个数,判断以这三个数为边长通否组成一个三角形.若能构成三角形,输出其特征（等边、等腰、直角、一般）；若不能,则给
pascal 输入三个数,判断以这三个数为边长通否组成一个三角形.
输入三个数,判断以这三个数为边长通否组成一个三角形.若能构成三角形,输出其特征（等边、等腰、直角、一般）；若不能,则给出错误信息.
【输入文件】(triangle.in) 1行,共3个数整数(均小于1000),每个数表示三角形的三边.
【输出文件】(triangle.out)
输出三角形的一种特征,其中等边用“eqvil”表示,等腰用“isosceles”表示,直角用“right”表示,一般用“commonly”表示,出错用“error”表示,数据中不会出现等腰直角三角形.
【输入样例1】（triangle.in） 2 2 6 【输出样例1】（triangle.out） error
【输入样例2】（triangle.in） 3 3 2 【输出样例2】（triangle.out） isosceles
pascal 输入三个数,判断以这三个数为边长通否组成一个三角形.输入三个数,判断以这三个数为边长通否组成一个三角形.若能构成三角形,输出其特征（等边、等腰、直角、一般）；若不能,则给
Var a,b,c:integer;
Begin
write('a b c=');
readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
if (a=b) and (b=c) then write('dengbian')
else if (a=b) or (a=c) or (b=c) then writeln('dengyao')
else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then write('zhijiao')
else write('yiban')
else write('no');
writeln(' sanjiaoxing.');
End.