Question

Помогите пожалуйста написать код программы на языке паскаль, учитывая некоторые методические требования

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 i:integer;
 y,x:real;
begin
 x:=-pi;
 writeln('i  x    y');
 for i:=1 to 17 do
  begin
   if ((1/(x-2*pi)-sin(x))>0) then
    begin
     y:=1/(x-2*pi)-sin(x);
     writeln(i,' ',x:0:2,' ',y:0:2);
    end
    else
     writeln('При x=',x:0:2,' y<=0'); 
  x:=x+pi/8;
  end;
end.