Question

Помогите срочно!!! Написать в тетради программу на языке Паскаль для вычисления площади (S) и периметра (P) прямоугольника, если известны стороны а и в.

Answer 1

var b,a,S,P:Integer;

begin

Writeln('Напишите длины сторон прямоугольника');

readln(a,b);

P:=2*(a+b);

S:= a*b;

Writeln('Периметр прямоугольника =',P);

Writeln('Площадь прямоугольника =',S);

end.

Answer 2

Конечно, вот программа на языке Паскаль для вычисления площади (S) и периметра (P) прямоугольника, если известны стороны a и b:

pascalCopy code
program CalculateRectangleAreaAndPerimeter;
var
  a, b, S, P: real;
begin
  // Вводим значения сторон a и b
  write('Введите длину стороны a: ');
  readln(a);
  write('Введите длину стороны b: ');
  readln(b);

  // Вычисляем площадь и периметр прямоугольника
  S := a * b;
  P := 2 * (a + b);

  // Выводим результаты
  writeln('Площадь прямоугольника: ', S);
  writeln('Периметр прямоугольника: ', P);

  // Завершаем программу
  readln;
end.

Эта программа запрашивает у пользователя значения сторон a и b, затем вычисляет площадь (S) и периметр (P) прямоугольника и выводит результаты на экран.