profile
Опубликовано 5 лет назад по предмету Информатика от maxpyro97

Дано равносторонний треугольник со стороной b. Разработайте код для определения, можно в этот треугольник вписать окружность радиусом r.(Pascal)

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      var eps:=1e-3; // точность
      var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
      if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
      else Writeln('Окружность вписать нельзя')
    end.
Самые новые вопросы