Question

Помогите с паскалем очень срочно дам 100 баллов

Answer 1

Ответ: выводит точно такой же результат как и на фото. Написана на PascalABC.NET

begin

 var x: real =-2;

 var y: real;

 while x <= 2.1 do begin

 y := -sqr(x)+3*x+1.15;  

 writeln('x = ',x:2:3,'  ','y = ',y:2:2);

 x +=0.1;

 end;

end.