• Дан треугольник со сторонами a,b,с.Определить,является ли он равносторонним.На Pascal ABC

Ответы 1

  • var a,b,c:real;begin  repeat    write('Введите длины сторон треугольника a,b,c ');    readln(a,b,c);  until (a>0) and (b>0) and (c>0);  if (a=b) and (b=c) then writeln ('Равносторонний')    else writeln('Не равносторонний или такой треугольник не существует');end.Тест №1Введите длины сторон треугольника a,b,c 5 5 -5Введите длины сторон треугольника a,b,c 5 5 5РавностороннийТест №2Введите длины сторон треугольника a,b,c 5 6 5Не равносторонний или такой треугольник не существует
    • Автор:

      miles100
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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