Question

Программа на паскале: "Даны длина и ширина прямоугольников. Является ли он квадратом?"

Answer 1

 Program n_5;

 var
     a, b: real;

 begin
    write ('введите длину прямоугольника - ');
    readln (a);
    write ('введите ширину прямоугольника- ');
    readln (b);
    if a=b then
       write ('Данный прямоугольник является квадратом')
    else
       write ('Данный прямоугольник не является квадратом');
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая определяет, является ли прямоугольник квадратом, основываясь на заданных длине и ширине:

pascalCopy code
program IsRectangleSquare;

var
  length, width: integer;

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

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

  if length = width then
    writeln('Прямоугольник является квадратом.')
  else
    writeln('Прямоугольник не является квадратом.');

  readln;
end.

В этой программе пользователь сначала вводит длину прямоугольника, а затем его ширину. Затем программа сравнивает длину и ширину и выводит сообщение о том, является ли прямоугольник квадратом или нет. Если длина и ширина равны, то это квадрат, в противном случае - просто прямоугольник.