Question

Помогите решить! Программа Pascal abc

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var x:=0.6; var y:=0.0;

  for var i:=1 to 100 do

  begin

  y:=3*x**2+sqrt(4*x)-7.3;

  Writeln('y',y:0:4,' ','x=',x);

  if x>0.8 then exit;

  x:=x+0.04;

  end;

end.