Question

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

Answer 1

var a,b:real;

begin

readln(a,b);

writeln('Perimetr - ',2*(a+b));

end.

Answer 2

Program zadacha;

Var a,b,p: real;

begin

Readln(a,b);

p:=(a+b)*2;

Writeln('Perimetr=',p,);

End.

 

 

 

 

 

 

 

 

 

 

 

 

Answer 3

Для вычисления периметра прямоугольника с заданными сторонами A и B можно использовать следующую программу на языке Pascal:

Program CalculateRectanglePerimeter;
Uses crt;
Var A, B, P :integer;
Begin
  Clrscr;
  Writeln ('Введите сторону A:');
  Readln (A);
  Writeln ('Введите сторону B:');
  Readln (B);
  P := 2*(A+B);
  Writeln ('Периметр прямоугольника равен ', P);
  Readln;
End.

В этой программе мы сначала запрашиваем у пользователя значения сторон A и B. Затем мы вычисляем периметр прямоугольника, используя формулу P = 2*(A+B), где P - периметр, A и B - стороны прямоугольника. Наконец, мы выводим результат на экран.

Пример работы программы:

Введите сторону A: 5
Введите сторону B: 3
Периметр прямоугольника равен 16

Вы можете скопировать эту программу и запустить ее в среде разработки Pascal, чтобы вычислить периметр прямоугольника с заданными сторонами A и B.

Источники: (https://www.google.com)