Question

Составить программу в паскале для сравнения периметров двух прямоугольников

Answer 1

Program pr1;var n,p1,p2:real;beginwriteln('Введите периметр 1-ого и 2-ого треугольника');readln(p1);readln(p2);if p1>p2then n:=p1-p2else n:=p2-p1;writeln('Один треугольник больше другого на ',n);readln;end.

Answer 2

Программа на языке Паскаль для сравнения периметров двух прямоугольников может выглядеть следующим образом:

program CompareRectangles;

var
  length1, width1, length2, width2, perimeter1, perimeter2: Integer;

begin
  // Ввод данных для первого прямоугольника
  writeln('Введите длину первого прямоугольника:');
  readln(length1);
  writeln('Введите ширину первого прямоугольника:');
  readln(width1);

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

// Вычисление периметров прямоугольников
  perimeter1 := 2 * (length1 + width1);
  perimeter2 := 2 * (length2 + width2);

// Сравнение периметров и вывод результата
  if perimeter1 > perimeter2 then
    writeln('Периметр первого прямоугольника больше периметра второго прямоугольника.')
  else if perimeter1 < perimeter2 then
    writeln('Периметр первого прямоугольника меньше периметра второго прямоугольника.')
  else
    writeln('Периметры прямоугольников равны.');
end.

В данной программе вводятся данные для двух прямоугольников - длина и ширина каждого. Затем вычисляются периметры обоих прямоугольников по формуле `2 * (длина + ширина)`. После этого выполняется сравнение периметров и выводится соответствующий результат: больше, меньше или равны периметры прямоугольников.