Задание №9. Создай программу. Задача. Найти периметр и площадь прямоугольника. Длину и ширину ввести с клавиатуры.

Задание №9. Необходимо написать программу, которая находит периметр и площадь прямоугольника, вводя длину и ширину с клавиатуры.

program rectangle; var length, width, perimeter, area: real; begin readln(length, width); perimeter := 2 * (length + width); area := length * width; writeln('Периметр: ', perimeter); writeln('Площадь: ', area); end.

В данной программе:

• program rectangle; – объявление программы с именем rectangle.
• var length, width, perimeter, area: real; – объявление четырех вещественных переменных length, width, perimeter и area.
• begin – начало блока кода программы.
• readln(length, width); – чтение значений длины и ширины с клавиатуры.
• perimeter := 2 * (length + width); – вычисление периметра прямоугольника по формуле 2 * (length + width).
• area := length * width; – вычисление площади прямоугольника по формуле length * width.
• writeln('Периметр: ', perimeter); – вывод значения периметра на экран с поясняющим текстом.
• writeln('Площадь: ', area); – вывод значения площади на экран с поясняющим текстом.
• end. – конец программы.

Для запуска программы необходимо ввести длину и ширину прямоугольника через пробел или каждое на новой строке, после чего программа выведет его периметр и площадь.

Ответ: Программа выводит периметр и площадь прямоугольника.