Question

Вычилить периметр разностороннего прямоугольника в паскаль.... надо написать

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 Writeln('Р = ', 2 * (ReadReal + ReadReal))

end.

Answer 2

Для вычисления периметра разностороннего прямоугольника в Pascal (также известном как Free Pascal или Lazarus), вам понадобится определить значения длин всех его сторон и затем сложить их. Ниже приведен пример кода:

pascalCopy code
program PerimeterOfRectangle;

var
  Length, Width, Perimeter: real;

begin
  { Ввод длины и ширины прямоугольника }
  Write('Введите длину прямоугольника: ');
  ReadLn(Length);
  
  Write('Введите ширину прямоугольника: ');
  ReadLn(Width);
  
  { Вычисление периметра }
  Perimeter := 2 * (Length + Width);
  
  { Вывод результата }
  WriteLn('Периметр прямоугольника: ', Perimeter);
end.

Этот код позволит пользователю ввести длину и ширину прямоугольника, а затем вычислит и выведет его периметр. Обратите внимание, что тип данных real используется для представления дробных чисел. Если вам нужны целочисленные значения, замените real на integer в объявлении переменных и вводе/выводе данных.