Var x,y,h:real;
begin
h:=0.4;
x:=-Pi/2;
writeln(x:3,y:8);
while x<=Pi/2 do
begin
y:=21*cos(Pi/3-2*x)+exp(2*x);
writeln(x:5:2,y:8:2);
x:=x+h;
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.