var a,b,h,x:real;
begin
writeln('Введите A,B,h');
readln(a,b,h);
while a<=b do
begin
x:=sin(a)+(sin(a)/cos(a));
writeln('При X=',a:0:2,' F(x)=',x:0:3);
a:=a+h;
end;
readln;
end.
var a,b,h,x:real;
begin
writeln('Введите A,B,h');
readln(a,b,h);
while a<=b do
begin
x:=sin(a)+(sin(a)/cos(a));
writeln('При X=',a:0:2,' F(x)=',x:0:3);
a:=a+h;
end;
readln;
end.