Вычеслить значение выражения y=5x^3+16x^2+18x-29

Question

Информатика: Вычеслить значение выражения y=5x^3+16x^2+18x-29

ilonabagdasarya1 · Accepted Answer

var a, b, c, d :real;
   k:integer;
begin
read (a, b, c);
k:=0;if b=c then
begin
d:=c;
c:=a;
a:=d;
end;
if a=c then
     begin
d:=c;
c:=b;
b:=d;
end;
if (a=b) and (a+b>c) then inc(k);
if a+b<=c then k:=2;
if k=0 then writeln ('Треугольник не равнобедренный');
if k=2 then writeln ('Это вообще не треугольник');
if k=1 then
  begin
  d:=sqrt(a*a+b*b);
  if d>c then writeln('остроугольный равнобедренный');
if d<c then writeln('тупоугольный равнобедренный');
if d=c then writeln('прямоугольный равнобедренный');
end;
end.
P,S, Надеюсь на благодарность и лучший ответ.

MOGZ ответил