Question

Напишите программу на языке Паскаля, определяющую периметр прямоугольника.

Answer 1

Var a,b,p: integer;
begin
 write('Длинна: '); readln(a);
 write('Ширина: '); readln(b);
 p:=2*a+2*b;
 write('Периметр равен: ',p);
end.

Answer 2

Для определения периметра прямоугольника в языке Паскаль, вам понадобится объявить переменные для ширины и высоты прямоугольника, а затем вычислить периметр по формуле периметр = 2 * (ширина + высота). Вот пример программы на языке Паскаль:

pascalCopy code
program PerimeterOfRectangle;

var
  width, height, perimeter: Integer;

begin
  // Ввод ширины и высоты прямоугольника
  writeln('Введите ширину прямоугольника: ');
  readln(width);
  
  writeln('Введите высоту прямоугольника: ');
  readln(height);
  
  // Вычисление периметра
  perimeter := 2 * (width + height);
  
  // Вывод результата
  writeln('Периметр прямоугольника: ', perimeter);
end.

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