Question

Помогите пж . Надо составить программу на pascal формула периметра и площади

Answer 1

Ответ:

var a, b:integer;

begin

writeln ('Введите стороны a и b');

writeln ('Введите сторону a');

readln (a);

writeln ('Введите сторону b');

readln (b);

writeln;

writeln ('Периметр = ', (a+b)*2);

writeln ('Площадь = ', a*b);

readln;

end.

Answer 2

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

pascalCopy code
program CalculateRectangle;

var
  Length, Width, Perimeter, Area: real;

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

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

  Perimeter := 2 * (Length + Width);
  Area := Length * Width;

  writeln('Периметр прямоугольника: ', Perimeter);
  writeln('Площадь прямоугольника: ', Area);

  readln;
end.

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