Программа запускается, но ввожу значения переменных, а ответ не выдаёт. не могу понять, в чём проблема? занимаюсь недавно, не ругайте)) и правильно ли я её вообще решила? var max,x,y,z,t: real; begin readln(x,y,z); if(x> y)then max: =x else max: =y; if(z> max)then max: =z; if(z*max t: =x*x+y*y+z*z-2*sqr(max); if(t> 0)then writeln('acute'); if(t=0)then writeln('right'); if(t< 0)then writeln('obtuse') else writeln('impossible'); end; readln; end. сама , если понадобится определите тип треугольника (остроугольный, тупоугольный, прямоугольный) с данными сторонами. входные данные даны три натуральных числа – стороны треугольника. выходные данные необходимо вывести одно из слов: right для прямоугольного треугольника, acute для остроугольного треугольника, obtuse для тупоугольного треугольника или impossible, если входные числа не образуют треугольника.

arustamianan    3   10.09.2019 03:10    0