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