Question

Программирование алгоритмов (Pascal) Даны три стороны треугольника. Определите, является ли треугольник равносторонним, в качестве ответа вывести да или нет Пожалуйста!

Answer 1

Ответ:

var a, b, c: integer;

begin

writeln ('Введи 3 целых числа');

read (a, b, c);

if a=b and b=c then ('истина')

else ('ложь');

end.

если что-то неправильно, не судите строго я просто Python учу!)))

Answer 2

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

pascalCopy code
program IsEquilateralTriangle;

var
  side1, side2, side3: real;

begin
  writeln('Введите длину первой стороны треугольника:');
  readln(side1);

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

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

  if (side1 = side2) and (side2 = side3) then
    writeln('Треугольник является равносторонним.')
  else
    writeln('Треугольник не является равносторонним.');

  readln;
end.

Вы можете вставить этот код в среду разработки Pascal (например, Free Pascal) и выполнить программу. Она запросит вас ввести длины трех сторон треугольника и выдаст ответ, является ли треугольник равносторонним или нет.