Вопрос пользователя:
Даны три произвольных числа a,b,c, значение которых задают длины сторон треугольника. Выведите 0,если нельзя построить треугольник с такими длинами сторон; 3,если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях. Задача в Паскале!!!
Илюха отвечает:
program t3;
var a,b,c:real; {допустимо поменять на integer}
begin
writeln (‘Vvedit a,b,c’);
readln (a,b,c);
if (a<=b+c) and (b<=a+c) and (c<=a+b) then writeln ('0'); else
if (a=c) and (c=b) then writeln (3); else
if (a=c) or (a=b) or (b=c) then writeln (‘2’); else
writeln (‘1’);
readln
end.