Question

Решите на паскале . найти площади n-треугольников, для каждого из которых известны длины сторон. n-ввести с клавиатуры, использовать процедуду, для вычисления площади треугольника по формуле герона( для тех кто не знает формулу герона вот: s=√(р(р-a)(р-b)(p-

Answer 1

program Area;
var
  a,b,c,p,S: real;
  i,N: integer;
begin
  WriteLn('Введите число треугольников:' );
  ReadLn(N);
  i := 1;
  while i <= N do
  begin
      Write('Введите сторону a треугольника #' , i , ': ');
      ReadLn(a);
      Write('Введите сторону b треугольника #' , i , ': ');
      ReadLn(b);
      Write('Введите сторону c треугольника #' , i , ': ');
      ReadLn(c);
      p := (a+b+c)/2;
      S := sqrt(p*(p-a)*(p-b)*(p-c));
      WriteLn('S_',N, ' = ',S);
      i := i+1
  end;
end.