Предмет: Информатика,
автор: alsu9436
Написать программу нахождения площади высоты, радиусов вписанной и описанной окружности равностороннего треугольника со стороной а.
Ответы
Автор ответа:
0
Ответ:
# Python 3.7.2
from math import sqrt
a = int(input())
h = sqrt(3) / 2 * a
r = a / (2 * sqrt(3))
R = a / sqrt(3)
print('Высота:', h)
print('Радиус вписанной окружности:', r)
print('Радиус описанной окружности:', R)
alsu9436:
а с помощью read, var, write?
потому что так мы не делали
как ты написал
Я написал на python, а надо тебе видимо на Паскале
да
на паскале нужно
можете помочь?
Ниже посмотри, я написал же)
Автор ответа:
1
PascalABC.Net
- procedure Rad(a: real; n: integer);
- var
- R, R2: real;
- begin
- R := a / (2 * sin(pi / n));
- R2 := R * cos(pi / n);
- Println('Радиус (Описаный): ', R);
- Println('Радиус (Вписаный): ', R2);
- end;
- begin
- var a := ReadReal('Введите A: ');
- var n := ReadInteger('Введите N: ');
- Rad(a, n);
- end.
Varian 2
- program HappyCoder;
- var
- R, R2, A: real;
- n: integer;
- begin
- Writeln('Введите A: ');
- Read(A);
- Writeln('Введите N: ');
- Read(n);
- R := a / (2 * sin(pi / n));
- R2 := R * cos(pi / n);
- Writeln('Радиус (Описаный): ', R:0:3);
- Writeln('Радиус (Вписаный): ', R2:0:3);
- end.
да
мы пишем var a, s, h и тд
потом
begin
write ('
что написать в write?
Я понял, 2 минуты переделаю под вас
спасибо большое
Добавил 2 вариант
спасибо огромное
Похожие вопросы
Предмет: Английский язык,
автор: lisssaa
Предмет: Английский язык,
автор: 4etko
Предмет: Беларуская мова,
автор: Виктор22
Предмет: Математика,
автор: tata19791
Предмет: Алгебра,
автор: Maria89036