Сделать программу по в программах не шарю вообще((​

Эвелина123412 Эвелина123412    1   17.03.2019 18:58    2

Ответы
Ctatuetca Ctatuetca  25.05.2020 21:16

uses math;

var

   a, b, c: Integer;

   S, p: Real;

begin

   readln(a);

   readln(b);

   readln(c);

   

   p := (a + b + c) / 2;

   S := sqrt(p * (p - a) * (p - b) * (p - c));

   

   writeln(S:0:1);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика