Действительные числа A, B, C. если нельзя построить треугольник с такими сторонами, то...

Question

Действительные числа A, B, C. если нельзя построить треугольник с такими сторонами, то напечатать 0, иначе 3, 2 или 1 в зависимости от того, равносторонний этот треугольник, равнобедренный или какой-либо другой.

Answer 1

var a,b,c:integer;

begin

writeln('Введите три стороны через пробел:');

read(a,b,c);

if (a if (a=b) and (b=c) and (a=c) then

writeln('3');

if (a=b) or (b=c) or (a=c) xor ((a=b) and (b=c) and (a=c)) then

writeln('2');

if (a<>b) and (b<>c) and (a<>c) then

writeln('1');

end

else

writeln('0');

end.

Comments

не кажется, что слишком много бегинов и эндов?

---

могу убрать если не нравится

---

если оно и так работает - ок

---

убрал

---

оно работает и в том и в этом варианте

---

спасибо

---

просто тот как по мне смотрится лучше

---

но тебе решать

---

твоя прога

---

да спасибо)