Question

Пожалуйста, помогите написать программу в паскале. Даны стороны одного произвольного треугольника и стороны другого произвольного треугольника. Определить, равны ли их периметры.

Answer 1

Ответ:

var a,b,c,d,e,f: integer;

begin

write('Введите три стороны первого треугольника: ');

readln(a,b,c);

write('Введите три стороны второго треугольника: ');

readln(d,e,f);

if (a+b+c=d+e+f) then  

writeln('Периметры равны')

else  

writeln('Периметры не равны')

end.

Answer 2

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

pascalCopy code
program CompareTrianglePerimeters;

var
  a1, b1, c1: Real; // Стороны первого треугольника
  a2, b2, c2: Real; // Стороны второго треугольника
  perimeter1, perimeter2: Real; // Периметры двух треугольников

begin
  // Ввод сторон первого треугольника
  WriteLn('Введите стороны первого треугольника:');
  Write('Сторона A: ');
  ReadLn(a1);
  Write('Сторона B: ');
  ReadLn(b1);
  Write('Сторона C: ');
  ReadLn(c1);
  
  // Ввод сторон второго треугольника
  WriteLn('Введите стороны второго треугольника:');
  Write('Сторона A: ');
  ReadLn(a2);
  Write('Сторона B: ');
  ReadLn(b2);
  Write('Сторона C: ');
  ReadLn(c2);

  // Расчет периметров
  perimeter1 := a1 + b1 + c1;
  perimeter2 := a2 + b2 + c2;

  // Сравнение периметров и вывод результата
  if perimeter1 = perimeter2 then
    WriteLn('Периметры треугольников равны.')
  else
    WriteLn('Периметры треугольников не равны.');
  
  ReadLn;
end.

Программа запрашивает стороны первого и второго треугольников, вычисляет их периметры и затем сравнивает их значения. Выводится сообщение о равенстве или неравенстве периметров.