Предмет: Информатика,
автор: MRUran
Вычислить площадь и периметр треугольника НОМЕР 3!!!! Помогите пожалуйста
Приложения:
huston81:
какой язык?
Ответы
Автор ответа:
0
Ответ:
Задание 3:
var
a, b, c, p, s: real;
begin
Write('Введите стороны треугольника через пробел: ');
ReadLn(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
WriteLn('Площадь треугольника S = ', s:0:2);
end.
Объяснение:
a, b, c, p, s: real;
begin
Write('a b c : ');
ReadLn(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
WriteLn('Площадь треугольника S = ', s:0:2);
end.
Похожие вопросы
Предмет: Математика,
автор: liza203305
Предмет: Литература,
автор: appspirina
Предмет: Математика,
автор: nail3120
Предмет: Математика,
автор: sweetpach
Предмет: Химия,
автор: KOTOП