Здравствуйте с кодом. Его надо переделать в питон uses crt;
var x0,xn,h,x:real;
k:integer;
begin
clrscr;
write('Начало интервала x0=');
readln(x0);
repeat
write('Конец интервала xn>',x0:0:1,' xn=');
readln(xn);
until xn>x0;
repeat
write('Шаг вычислений h<',xn-x0:0:1,' h=');
readln(h);
until h x:=x0;
k:=0;
while x<=xn+h/2 do
begin
writeln('x=',x:4:1,' y=',sin(x):6:3);
if (sin(x)>-0.5)and(sin(x)<0.5) then k:=k+1;
x:=x+h;
end;
writeln('Количество точек между прямыми y=-0.5 и y=0.5 = ',k);
readln
end.

Nekepeshy    3   02.12.2021 15:06    1