Question

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

Answer 1

Program s_i_p;
var a,b,s,p:real;
begin
writeln('введите значение двух сторон');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
writeln('площадь ',s,' периметр ',p);
end.

Answer 2

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

program RectangleCalculator;

var
  Length, Width, S, P: real;

begin
  // Ввод длины прямоугольника
  write('Введите длину прямоугольника: ');
  readln(Length);

// Ввод ширины прямоугольника
  write('Введите ширину прямоугольника: ');
  readln(Width);

// Вычисление площади прямоугольника
  S := Length * Width;

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

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

// Задержка перед закрытием окна консоли (опционально)
  readln;
end.

Эта программа запрашивает у пользователя длину и ширину прямоугольника, затем вычисляет площадь и периметр, и выводит результаты на экран. Пользователю предлагается ввести значения для длины и ширины, после чего программа вычисляет и отображает площадь и периметр прямоугольника.