Проанализируй и запиши ответ, если a=6;b=17

46 будет

Объяснение:

Е:видеозапись.avi          |график.xIs          |ИЗОБРАЖЕНИЯаквариум.bmp                                                            |ФОТОБия.jpeg                                                                                         |Катунь.jpe          |          |          |          |ТЕКСТЫбуква.txt                                        |онегин.doc          |          |          |мелодия.mp3          |презинтация.pptПЛЖАЛУЙСТА ДРУЗЬЯ пкт даю ветьЕ:видеозапись.aviЕ:график.xIsЕ:ИЗОБРАЖЕНИЯаквариум.bmpЕ:ИЗОБРАЖЕНИЯФОТОБия.jpegЕ:ИЗОБРАЖЕНИЯФОТОКатунь.jpegЕ:ТЕКСТЫбуква.txtЕ:ТЕКСТЫонегин.docЕ:мелодия.mp3Е:презинтация.ppt

1)

var a,b,c,d,s,p:real;
begin
cls;
writeln('введите стороны треугольника:');
read(a,b,c);
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
write('Площадь треугольника S=',s);
end.

2)

var a,b,c,d,s,v:real;
begin
cls;
write('Введите 3 ребра=');
read(a,b,c);
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
d:=(a+b+c)*2;
writeln('Прямоугольный параллелепипед:');
writeln('Обьём:',V);
writeln('Площадь:',S);
writeln('Сумма рёбер:',d);
end.

3)

var a,b,c,d,P:real;
begin
cls;
writeln('введите сторону и 2 угла ромба');
read(a,b,c);
if b>c then
P:=a*Sqrt(2+2*Cos(b))
else
d:=a*Sqrt(2+2*Cos(c));
writeln('Большая диагональ ромба D=',P);
writeln('Меньшая диагональ ромба d=',d);
end.