Написать программу - вопрос №437230

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

Лучший ответ по мнению автора

program treug;

var a,b,c:integer;

begin

writeln('vvedite a,b,c');

readln(a,b,c);

if (a+b<=c) or (b+c<=a) or (a+c<=b) then writeln(0)

else

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

     else if (a=b) or (b=c) or (a=c) then writeln(2)

             else writeln(1) ;

readln

end.

Буду благодарна, если отметите 

24.10.12
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store