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