Question

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

Answer 1

var a,b,c:integer;

begin

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

read(a,b,c);

if (a<b+c) and (b<a+c) and (c<a+b) then begin

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.