Question

30 баллов!!! 14 задание, пожалуйста!!! Нужно написать в pascal abc программу для нахождения значений функции

Answer 1

program fantscrin;

var x,y: real;

begin

 x:= 0;

 while x <= 2 * 3.14 do

 begin

   y:=sin(x) + 2/cos(x);

   x:=x + 0.1;

   writeln('x = ', x,' y = ', y);

 end;

end.