Question

Определить,является ли треугольник со сторонами a,b,c равнобедренным. (На языке ABC Pascal)

Answer 1

Var a, b, c: integer;
begin
    write (' Введите три стороны: ');
    readln (a, b, c);
    if (a < b+c) and (b < a+c) and (c < a+b) then
    begin
    if (a=b) or (a=c) or (b=c) then
      writeln('Треугольник равнобедренный')
    else
      writeln('Треугольник не является равнобедренным');
    end
    else
      writeln ('Треугольник не существует.');
end.