Question

Составить программу в Паскале. Даны стороны треугольника а,в,с.Найти его периметр.

Answer 1

Program asd;
 Var a,b,c,p :integer;
begin
Write('Введите первую сторону треугольника a: '); readln(a);
Write('Введите вторую сторону треугольника b: '); readln(b);
write('Введите третью сторону треугольника c: '); readln(c);
p:=(a+b+c);
Writeln('Периметр треугольника равен: ',p);
end.

Answer 2

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

pascalCopy code
program CalculatePerimeter;

var
  a, b, c, perimeter: real;

begin
  // Ввод сторон треугольника
  writeln('Введите длину стороны а:');
  readln(a);
  writeln('Введите длину стороны b:');
  readln(b);
  writeln('Введите длину стороны c:');
  readln(c);
  
  // Расчет периметра треугольника
  perimeter := a + b + c;
  
  // Вывод результата
  writeln('Периметр треугольника: ', perimeter);
  
  readln;
end.

Программа запрашивает у пользователя значения сторон треугольника a, b и c, а затем вычисляет и выводит их сумму в переменную perimeter, которая и является периметром треугольника.