Прошу!!!Помогите решить эту задачу!Я знаю,что в начале надо писать програм пример,юсес срт,и чуть дальше,а другое не знаю :( Прошу!!

1

Ответы и объяснения

2013-09-15T12:35:04+04:00
Uses CRT;
var
a,s:real;
begin
write('Введите сторону треугольника: ');
readln(a);
s:=a*a*sqrt(3)/4;
writeln('Площадь треугольника: ',s:3:4);
writeln('Радиус вписанной окружности: ',2*s/(3*a):3:4);
writeln('Радиус описанной окружности: ',a*a*a/(4*s):3:4);
end.