• 1. Треугольник задан своими сторонами. Выяснить является ли он прямоугольным. (ЧЕРЕЗ PASKAL)

Ответы 1

  • Var a,b,c:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);if (a<b+c)and(b<c+a)and(c<a+b) then   Begin   a:=a*a;   b:=b*b;   c:=c*c;   if (a+b=c)or(b+c=a)or(c+a=b) then WriteLn('Δabc - прямоугольный')   else WriteLn('Δabc не является прямоугольным');   Endelse WriteLn('Δabc не существует')End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years