Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 17:52
839
Пусть даны длины сторон треугольника. Вычислите его площадь.
1
ответ
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
end.
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
end.
0
·
Хороший ответ
4 апреля 2023 17:52
Остались вопросы?
Еще вопросы по категории Информатика
Что такое система команд исполнителя алгоритмов ски...
А12. Какое устройство ПК предназначено для вывода информации? 1)процессор 2)монитор 3)клавиатура 4)магнитофон...
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют максимальное значение...
СРОЧНООО Чему равно значение переменной s 1. Var s,k: integer; Begin s:=1; for k:=1 to 11 do s:=s+12; write(s); end. 2. Чему равно значен...
1) Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 128×256 пикселов пр...