Опущу все прелюдии. 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)));
С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом
ответ №3. I = 1, V = 5, Х =10, L = 50, С = 100, D = 500, М = 1000 DC=600 LXXX=80 IV=4
Римские цифры, цифры древних римлян. Система Р. ц. основана на употреблении особых знаков для десятичных разрядов I = 1, Х =10, С = 100, М = 1000 и их половин V = 5, L = 50, D = 500. Натуральные числа записываются при повторения этих цифр. При этом, если большая цифра стоит перед меньшей, то они складываются (принцип сложения), если же меньшая — перед большей, то меньшая вычитается из большей (принцип вычитания). Последнее правило применяется только во избежание четырёхкратного повторения одной и той же цифры. Например, I, Х, С ставятся соответственно перед Х, С, М для обозначения 9, 90, 900 или перед V, L, D для обозначения 4, 40, 400. Например, VI = 5+1 = 6,IV = 5 — 1 = 4 (вместо ). XIX = 10 + 10 — 1 = 19 (вместо XV), XL = 50 — 10 =40 (вместо ), XXXIII = 10 + 10 + 10 + 1 + 1 + 1 = 33 и т.д.
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)));
С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом