Опущу все прелюдии.
WriteLn('Введите длины сторон треугольника');
ReadLn(x, y, z);
If x = y and y = z and z = x
then
WriteLn('Данный треугольник - равносторонний')
else
If (x = y and y = z) or (x = y and x = z) or (x = z and y = z)
then
WriteLn('Данный треугольник - равнобедренный')
else
If (Sqrt(x) = Sqrt(y) + Sqrt(z)) or (Sqrt(y) = Sqrt(x) + Sqrt(z)) or (Sqrt(z) = Sqrt(x) + Sqrt(y))
then
WriteLn('Данный треугольник - прямоугольный')
else
If (x < (y + z)) and (y < (x + z)) and (z < (x + y))
then
WriteLn('Данный треугольник является обыкновенным')
else
WriteLn('Данный треугольник не существует');
p := div((x + y + z) / 2); {Полупериметр}
WriteLn('Периметр треугольника Р =', x + y + z);
WriteLn('Площадь треугольника S =', div(Sqrt(p*(p-x)*(p-y)*(p-z))));
WriteLn('Медиана к стороне x -', div(Sqrt(2*Sqr(y) + 2*Sqr(z) - Sqr(x))/2));
WriteLn('Биссектриса стороны х -', div(Sqrt(y*z*(x+y+z)*(y+z-x))/(y+z)));
С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом помочь.
в 1 номере нужно все перемножать т.е. 16*40*64*8=327 680 бит или 40 960 байт или 40 килобайт. 2 номер ответ Г
Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
GlushkovAD
Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>