Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.
Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
length, perimeter, width, area: real;
begin
write('Enter the length of the rectangle: ');
readln(length);
write('Enter the perimeter of the rectangle: ');
readln(perimeter);
width := (perimeter - 2 * length) / 2;
area := length * width;
writeln('The area of the rectangle is: ', area:0:2);
end.
Программа сначала запрашивает у пользователя длину и периметр прямоугольника, затем вычисляет его ширину и площадь по формулам, и выводит результат на экран.