Question

дан треугольник со сторонами a и b. составьте программу которая находит периметр прямоугольника в паскале ​

Answer 1

Ответ:

var a,b:real;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   write('Периметр прямоугольника равен: ', 2*(a+b):0:2);

end.

Answer 2

Вот пример программы на языке Pascal, которая находит периметр треугольника с заданными сторонами a и b:

pascalCopy code
program PerimeterTriangle;
var
  a, b, perimeter: real;
begin
  // Вводим значения сторон треугольника
  writeln('Введите длину стороны a: ');
  readln(a);
  
  writeln('Введите длину стороны b: ');
  readln(b);
  
  // Вычисляем периметр треугольника
  perimeter := a + b + sqrt(a*a + b*b);
  
  // Выводим результат
  writeln('Периметр треугольника: ', perimeter);
end.

Эта программа сначала запрашивает значения сторон a и b, затем вычисляет периметр треугольника по формуле Пифагора (сумма катетов и гипотенузы), и наконец, выводит результат.