Площадь треугольника

Площадь треугольника

program PL;

var a, b,c, p,s: real;

begin

readln(a, b,c);

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

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

writeln ('s=',s) ;

end.

Периметр произвольного четырехугольника

program prmtr;

  var a, b,c, d,p: real;

begin

  readln (a, b,c, d);

  p:=a+b+c+d;

  writeln ('p=',p)

end.

Площадь трапеции

program tr;

  var a, b,h, s: real;

begin

  readln (a, b,h);

  s:=(a+b)*h/2;

  writeln ('s=',s)

end.

Длина окружности

program crcl;

  var r, l: real;

begin

  readln (r);

  l:=2*pi*R;

  writeln ('l=',l)

end.

Нахождение суммы цифр числа

program n_4;

  var x, a,b, c,d, s: integer;

begin

  writeln ('Нахождение суммы цифр трёхзначного числа');

  readln (x);

  a:=x div 1000;

  b:=x div 100 mod 10;

  c:=x div 10 mod 10;

  d:=x mod 10;

  s:=a+b+c+d;

  writeln('s=',s)

end.