Question

Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Укажите код заданной величины в правильном треугольнике');
  Writeln('1-сторона, 2-площадь, 3-высота, 4-радиус вписанной окружности,');
  var k:=ReadInteger('5-радиус описанной окружности:');
  var sr3:=Sqrt(3); // часто нужно
  case k of
  1:begin
    var a:=ReadReal('Введите длину стороны треугольника:');
    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
    Writeln('Высота треугольника ',a*sr3/2:0:5);
    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
    Writeln('Радиус описанной окружности ',a/sr3:0:5)
    end;
  2:begin
    var s:=readReal('Введите значение площади треугольника:');
    var a:=Sqrt(4*s/sr3);
    Writeln('Сторона треугольника ',a:0:5);
    Writeln('Высота треугольника ',a*sr3/2:0:5);
    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
    Writeln('Радиус описанной окружности ',a/sr3:0:5)
    end;
  3:begin
    var h:=ReadReal('Введите высоту треугольника:');
    var a:=2*h/sr3;
    Writeln('Сторона треугольника ',a:0:5);
    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5);
    Writeln('Радиус описанной окружности ',a/sr3:0:5)
    end;
  4:begin
    var r:=ReadReal('Введите радиус вписанной окружности:');
    var a:=2*r*sr3;
    Writeln('Сторона треугольника ',a:0:5);
    Writeln('Высота треугольника ',a*sr3/2:0:5);
    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
    Writeln('Радиус описанной окружности ',a/sr3:0:5)
    end;
  5:begin
    var R:=ReadReal('Введите радиус описанной окружности:');
    var a:=R*sr3;
    Writeln('Сторона треугольника ',a:0:5);
    Writeln('Высота треугольника ',a*sr3/2:0:5);
    Writeln('Площадь треугольника ',a*a*sr3/4:0:5);
    Writeln('Радиус вписанной окружности ',a/(2*sr3):0:5)
    end;
  else Writeln('Введено недопустимое значение')
  end
end.

Answer 2

спасибо большое

Answer 3

Пожалуйста