Составить программу для определения по трем 1)сторонам равнобедренного или равностороннего или произвольного треугольника 2) )составить пр. для вычисления y если х> 0 то y=2, если х=0 то y=0,если х< 0 то y=x/2

Решение на QBasic
 
CLS
INPUT A
INPUT B
INPUT C
IF A=B AND A=C AND C=B THEN
  PRINT "равносторонний"
 END
END IF
IF A<>B AND A<>C AND C<>B THEN
  PRINT "разносторонний"
ELSE 
  PRINT "равнобедренный"
END IF