Периметр прямоугольника Pascal(Паскаль)

Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон: P = a + b + a + b = 2×a + 2×b = 2×(a + b)

program RectanglePerimeter;
var sideA, sideB, perimeter: integer;
begin
    write('Длина: ');
    readln(sideA);
    write('Ширина: ');
    readln(sideB);
    perimeter := (sideA + sideB) * 2;
    writeln('Периметр прямоугольника: ', perimeter);
    readln;
end.

Leave a Comment