Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО!!!!
Написать программу, определяющую по длинам сторон А,В и С является ли треугольник равнобедренным.

Ответ оставил Гость

//Pascal
var
 a,b,c:integer;

begin
  readln(a,b,c);
  if ((a=b) AND (a<>c) ) OR ((a=c) AND (a<>b)) OR ((b=c) AND (b<>a)) then
   writeln(Треугольник равнобедренный)
  else
    writeln(Треугольник не равнобедренный);
end;