ТЕКСТ ЗАДАНИЯ По данным таблицы построена диаграмма.



Напишите ответы:

1) назовите вид диаграммы

2) укажите диапазон ячеек, для которых построена диаграмма

3) каким цветом на диаграмме выделен ТОВАР 2?

4) запишите числовое значение серого столбика апреля.

Предполагается, что вводятся длины сторон по которым можно построить треугольник:

var a,b,c,p:real;
d,e,f:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
writeln('Углы равны:');
d:=(2*arctan(sqrt((p-b)*(p-c)/(p*(p-a*(180/pi);
e:=(2*arctan(sqrt((p-a)*(p-c)/(p*(p-b*(180/pi);
f:=(2*arctan(sqrt((p-a)*(p-b)/(p*(p-c*(180/pi);
writeln(int(d),' град, ',int(frac(d)*60),' мин ', frac(frac(d)*60):5:2,' сек');
writeln(int(e),' град, ',int(frac(e)*60),' мин ', frac(frac(e)*60):5:2,' сек');
writeln(int(f),' град, ',int(frac(f)*60),' мин ', frac(frac(f)*60):5:2,' сек');
end.

Пример
a=3
b=4
c=5
Углы равны:
36 град, 52 мин  0.19 сек
53 град, 7 мин  0.81 сек
90 град, 0 мин 0.00000 сек

Var a,b,c,alfa,beta,gamma:real; 
ga,ma,sa,gb,mb,sb,gg,mg,sg:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
alfa:=arccos((b*b-c*c+a*a)/(2*b*c))*180/pi;
ga:=int(alfa);
ma:=int(frac(alfa)*60);
sa:=frac(frac(alfa)*60);
writeln('alfa = ',ga:3:0,' gr ',ma:3:0,' min ',sa:3:1,' sec');
beta:=arccos((c*c-b*b+a*a)/(2*c*a))*180/pi;
gb:=int(beta);
mb:=int(frac(beta)*60);
sb:=frac(frac(beta)*60);
writeln('beta = ',gb:3:0,' gr ',mb:3:0,' min ',sb:3:1,' sec');
gamma:=arccos((c*c-a*a+b*b)/(2*c*b))*180/pi;
gg:=int(gamma);
mg:=int(frac(gamma)*60);
sg:=frac(frac(gamma)*60);
writeln('gamma = ',gg:3:0,' gr ',mg:3:0,' min ',sg:3:1,' sec');
end.

Пример:
a=3
b=4
c=5
alfa =  90 gr   0 min 0.0 sec
beta =  53 gr   7 min 0.8 sec
gamma =  36 gr  52 min 0.2 sec