Cоставить таблицу значений функции используя оператор цикла с парамертром y=exp(sin(x))*cos(x) x-принадлежит [0;14] шаг 0,1

Const
  a = 0.0;
  b = 14.0;
  h = 0.1;

var
  x, y: real;
  i:integer;
begin
  for i := 1 to Trunc((b - a) / h + 1) do
  begin
    x := a + (i - 1) * h;
    y := exp(sin(x)) * cos(x);
    writeln(x=, x:4:1,   y=, y)
  end
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.