Разработка алгоритма вычислительного процесса разветвляющейся структуры, его программирование на алгоритмическом языке в

@BurnSpark · Регистрация: 26.09.2019

Author24 — интернет-сервис помощи студентам

Даны три числа a, b, c. Проверить могут ли эти числа быть длинами сторон треугольника. Если да, то вычислить и напечатать периметр и площадь треугольника со сторонами a, b, c. Если нет, то печатать число 0.
За решение данного задания буду очень благодарен!

@JuriiMW · 27.09.2019, 04:27

Pascal

begin
  var(a,b,c):=ReadReal3;
  if a>b then swap(a,b);
  if b>c then swap(b,c);
  if a+b<=c then 0.Print else $'P={a+b+c} S={sqrt((a+b+c)*(-a+b+c)*(a-b+c)*(a+b-c))/4}'.Print;
end.

@BurnSpark 1 / 1 / 0 Регистрация: 26.09.2019 Сообщений: 164
		1
	Разработка алгоритма вычислительного процесса разветвляющейся структуры, его программирование на алгоритмическом языке в 26.09.2019, 22:15. Показов 564. Ответов 1 Метки нет (Все метки) Даны три числа a, b, c. Проверить могут ли эти числа быть длинами сторон треугольника. Если да, то вычислить и напечатать периметр и площадь треугольника со сторонами a, b, c. Если нет, то печатать число 0. За решение данного задания буду очень благодарен! 0

	27.09.2019, 04:27