ПаскальАВС.НЕТ
var x,y:real;
begin
x:=-3;
writeln(x:2,y:10);
repeat
y:=1/tan(4*x+15)-x*x;
x:=x+0.5;
writeln(x:4,y:10:3);
until x>3;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.