Question

СРОЧНО!!!!!!!! Задача С клавиатуры вводится длина прямоугольника. Известно, что его ширина в два раза меньше длины. Определите периметр прямоугольника. Sample Input: 18 Sample Output: 54 Язык паскаль

Answer 1

program ppch;

uses

crt;

var

d, p: real;

begin

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

readln(d);

p := 2 * d + d; // либо p:=3d;

writeln('Периметр: ', p);

readln;

end.

Answer 2

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

pascalCopy code
program RectanglePerimeter;

var
  length, width, perimeter: Integer;

begin
  // Вводим длину прямоугольника с клавиатуры
  Write('Введите длину прямоугольника: ');
  Readln(length);

  // Вычисляем ширину прямоугольника
  width := length div 2;

  // Вычисляем периметр прямоугольника
  perimeter := 2 * (length + width);

  // Выводим периметр на экран
  Writeln('Периметр прямоугольника: ', perimeter);

  Readln;
end.

В данном примере мы сначала считываем длину прямоугольника с помощью Readln, затем вычисляем ширину, разделив длину на 2. Далее, используя формулу 2 * (длина + ширина), находим периметр прямоугольника. Наконец, выводим полученный периметр на экран с помощью Writeln.