Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
program tri;

var

  a,b,c,res:integer;


begin

  readln(a,b,c);

  if c >= a + b then res := -1 else

  if c*c = a*a + b*b then res := 0 else

  if c*c < a*a + b*b then res := 1 else

  res := 2;

  writeln(res);

end.
          
Comments: