Предмет: Информатика, автор: MRUran

Вычислить площадь и периметр треугольника НОМЕР 3!!!! Помогите пожалуйста

Приложения:

huston81: какой язык?
MRUran: Паскаль ю

Ответы

Автор ответа: 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.

Объяснение:


MRUran: var
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.
MRUran: вот так? Везде пробелы правильно расставлены?
huston81: да, все ок
MRUran: Спасибо тебе,если что не теряй,может спишемся ещё
MRUran: Тут точно все запятые и пробелы расставлены правильно,мне это очень важно!
Похожие вопросы