Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон: 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.
Похожие записи/страницы:
- Площадь прямоугольника Pascal(Паскаль)
- Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника…
- Написать программу вычисления периметра прямоугольника со сторонами А и В- Pascal(Паскаль)
- Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника…
- Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b) - Pascal(Паскаль)
- Одна сторона прямоугольника на 5 см. длиннее другой, а сумма их длин равна 17 см. Найти стороны этого…
- Заданы действительные положительные числа a,b,c,d. Выяснить можно прямоугольник со сторонами a,b разместить…
- Найти площадь и периметр прямоугольника с катетами а и б - Pascal(Паскаль)