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

//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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!