• помогите решить задачу по информатике с помощью PascalABC.NET

    question img

Ответы 1

  • // PascalABC.NET 3.4, сборка 1767 от 27.08.2018

    // Внимание! Если программа не работает, обновите версию!

    begin

    var (a, b) := ReadReal2('Введите два угла треугольника в градусах:');

    var c := 180 - a - b;

    var mx := Max(a, Max(b, c));

    if mx > 90 then Print('Тупоугольный')

    else

    if mx = 90 then Print('Прямоугольный')

    else Print('Отстроугольный')

    end.

    • Автор:

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

Войти через Google

или

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

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

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