Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить...

Question

Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равнобедренным».

Comments

Паскаль?

---

с++

Answer 1

Можно было ввод сделать попроще, но так программа не особо красиво выглядит)

Comments

Картинки нет, извиняюсь
Program pr1;
Var a,b,c: integer;
Begin
Writeln('a');
Readln(a);
Writeln('b');
Readln(b);
Writeln('c');
Readln(c);
If ((a=c)or(a=b)or(c=b)) then
Writeln('Треугольник равнобедренный')
Else
Writeln('Треугольник не равнобедренный');
End.