Добро пожаловать на сайт Ответы онлайн, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Даны три произвольных числа a,b,c, значение которых задают длины сторон треугольника....

0 голосов
31 просмотров

Даны три произвольных числа a,b,c, значение которых задают длины сторон треугольника. Выведите 0,если нельзя построить треугольник с такими длинами сторон; 3,если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях. Задача в Паскале!!!


вопрос по Информатика от (33 баллов)
Дан 1 ответ
0 голосов

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</p>

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. 

 

ответ от Начинающий (136 баллов)
...