40 баллов!! Написать программу вычисления с результатом:
y=ctg(x3+0.5) x€[0;1] h=0.1

// PascalABC.NET 3.0, сборка 1088
var
  x,y,t:real;
  i:integer;
begin
  for i:=0 to 10 do begin
    x:=i/10;
    t:=x*sqr(x)+0.5;
    y:=cos(t)/sin(t);
    Writeln('x=',x:3:1,', y=',y)
    end
end.

Тестовое решение:
x=0.0, y=1.83048772171245
x=0.1, y=1.82614498429306
x=0.2, y=1.79618385002611
x=0.3, y=1.71852553644354
x=0.4, y=1.58093809305141
x=0.5, y=1.38603127549996
x=0.6, y=1.1494046625412
x=0.7, y=0.890956788596857
x=0.8, y=0.625274002791611
x=0.9, y=0.355759266063965
x=1.0, y=0.0709148443026524

если в градусах то
x=0.1, y=104.683470437182
x=0.2, y=102.96595318621
x=0.3, y=98.5142027260628
x=0.4, y=90.6270244424374
x=0.5, y=79.4540221624182
x=0.6, y=65.8894392539543
x=0.7, y=51.0739560342147
x=0.8, y=35.8437326441051
x=0.9, y=20.3938432775521
x=1.0, y=4.06518215747689