Question

помогите с паскалем.
. Вводится стороны прямоугольника. Найти периметр фигуры, образованной последовательным соединением середин сторон прямоугольника.

Answer 1

Там получится ромб с длиной стороны, равной гипотенузе треугольника с катетами равными половинам введенных длин сторон.
var
  a,b:real;
begin
  Write('Задайте через пробел стороны прямоугольника: ');
  Readln(a,b);
  Writeln('Периметр ромба равен ',4*sqrt(sqr(a/2)+sqr(b/2)))
end.