Даны длины сторон треугольника. Составьте блок- схему для вычисления полупериметра треугольника и его площадь

pascal

Объяснение:

program triangle;

var

 a, b, c: real;

 p, s: real;

begin

 Write('Введите стороны треугольника >> ');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then

 begin

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

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

   WriteLn('Полупериметр треугольника равен ',p);

   WriteLn('Площадь треугольника равна ',s);    

 end

 else

  WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите