Question

Напишите программу на языке Паскаль для решения следующей задачи: Дан квадрат со стороной a и равносторонний треугольник со стороной b. Чей периметр меньше?

Answer 1

Ответ:

var a, b: integer;

begin

 readln(a, b);

 a:= a*4;

 b:=b*3;

 if a > b then writeln('Периметр квадрата больше')

 else writeln('Периметр треугольника больше');

end.

Answer 2

Конечно, вот программа на языке Паскаль для решения данной задачи:

pascalCopy code
program PerimeterComparison;

var
  a, b, squarePerimeter, trianglePerimeter: real;

begin
  // Ввод данных
  write('Введите длину стороны квадрата (a): ');
  readln(a);
  
  write('Введите длину стороны равностороннего треугольника (b): ');
  readln(b);
  
  // Вычисление периметра квадрата и треугольника
  squarePerimeter := 4 * a;
  trianglePerimeter := 3 * b;
  
  // Сравнение периметров и вывод результата
  if squarePerimeter < trianglePerimeter then
    writeln('Периметр квадрата меньше.')
  else if trianglePerimeter < squarePerimeter then
    writeln('Периметр равностороннего треугольника меньше.')
  else
    writeln('Периметры равны.');
end.

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