Question

Является ли треугольник равнобедренным?Даны три числа-стороны треугольника.Написать программу на языке Паскаль

Answer 1

Program test;
var a,b,c:real;
begin
readln(a,b,c);
if (a=c) or (a=b) or (c=b) then writeln('Треугольник равнобедренный')
else writeln('Треугольник не равнобедренный');
end.

Answer 2

Var a, b, c: real; {стороны треугольника}
begin
write ('a='); read(a);
write ('b='); read(b);
write ('c='); read(c);
if (a=b) or (a=c) or (b=c) write ('Treugolnik ravnobedrenniy')
else write ('Treugolnik ne ravnobedrenniy');
end.

Answer 3

Я могу помочь вам с вашим вопросом о треугольнике. Треугольник является равнобедренным, если у него есть две равные стороны. Для того, чтобы проверить, является ли треугольник равнобедренным, нам нужно сравнить длины его сторон. Например, если мы имеем три числа a, b и c, то мы можем написать такую программу на языке Паскаль:

program IsoscelesTriangle;
var
  a, b, c: integer;
begin
  writeln('Введите три числа-стороны треугольника:');
  readln(a, b, c);
  if (a = b) or (b = c) or (c = a) then
    writeln('Треугольник равнобедренный')
  else
    writeln('Треугольник не равнобедренный');
end.

Эта программа считывает три числа с клавиатуры и выводит сообщение, является ли треугольник равнобедренным или нет. Я надеюсь, что это поможет вам.

: [Определение равнобедренного треугольника]