var
x:= 0.0;
y: real;
step:= 0.1;
begin
while x<=(Pi/2) do
y:=Exp(Sin(x))*Cos(x);
writeln('y = ',y:0:2,' x= ',x);
x:=x+step;
end;
end.
Объяснение:
var
x:= 0.0;
y: real;
step:= 0.1;
begin
while x<=(Pi/2) do
begin
y:=Exp(Sin(x))*Cos(x);
writeln('y = ',y:0:2,' x= ',x);
x:=x+step;
end;
end.
Объяснение: