проверьте пожалуйста program my; uses crt; var t,x:real; k,m:integer; begin readln(x); k:=1; t:=1; repeat t:=t*((sin(x)/cos(x)+k)/2*k*x); k:=1; k:=2; k:=m until abs((sin(x)/cos(x)+k)/2*k*x)>=m; writeln('t=',t:10:5); readln; end
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.