даны три натуральных числа. напишите программу в паскале , определяющую , существует ли

Ответы 1

vara,b,c,k:integer;beginreadln(a,b,c);if (a+b>c)and(b+c>a)and(a+c>b) then beginwriteln('треугольник существует');k:=1 endelse writeln('треугольник не существует');if (a=b)and(a=c) and (k=1) thenwriteln('равносторонний');if (((a=b)and(a<>c))or((c=b)and(c<>a))or((c=a)and(c<>b)))and (k=1) thenwriteln('равнобедренный');if (a<>b)and(c<>b)and(a<>c)and (k=1) thenwriteln('разносторонний')end.
- Автор:
  josiejt06
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы